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Sobre los autores 


Scott Vincent es un programador experimentado en Código 
Máquina. Habitualmente estudia ordenadores en la Universidad 
de Sheffield; Scott tiene publicados gran cantidad de libros 
sobre Código Máquina por conocidas casas de software. Gran 
parte de los libros que ha escrito, han sido publicados por 
Interface y Virgin Books. 


Clive Gifford tiene aproximadamente 20 libros editados y 
escribe con frecuencia para un número de revistas de 
ordenadores, incluyendo Home Computing Weekly. Sus títulos 
publicados incluyen The Amstrad Programmers Reference 
Guide (con Tim Hartnell como co-autor), Using Computers in 
Education y On-Line With Your Computer. 


Unidos, los dos autores han trabajado en varios proyectos, 
incluidos bastantes libros de la serie Games for Your... 
publicados por Virgin. 


Los autores desean agradecer su colaboración a las siguientes 
personas: Dave, Dickie, Grannis, Lorraine, Simes y Stuart. 
También agradecen a Alan y Sue Baggs su ayuda con el 
préstamo de equipos, así como a John Brown por su acuerdo con 
todo el proyecto. 





Introducción de los autores 





Debido a su relación prestaciones/precio, la gama de 
ordenadores AMSTRAD no tiene igual en el mundo del Home 
Computer. El BASIC suministrado con los equipos AMSTRAD 
está escrito por Locomotive Software y es excelente, pero no 
hay BASIC que pueda igualar la velocidad de un programa 
escrito en Código Máquina. Este lenguaje tiene también otras 
ventajas. Un programa bien escrito en Código Máquina ocupa 
mucho menos espacio en la memoria; aún más, pueden 
escribirse rutinas para ejecutar tareas imposibles de realizar a 
través del BASIC -como lo demuestra la disponibilidad del 
sintetizador de voz y nuestra velocidad de cassette más rápida. 


Sin embargo, el Código Máquina tiene desventajas. Es tedioso y 
lento de escribir, no tiene facilidades para comprobar errores 
(en caso de error en el programa, perderemos el control del 
mismo) y, por supuesto, para escribir cualquier rutina es 
necesario estar familiarizado con él. Para muchas personas esto 
es demasiado complejo y el Código Máquina semeja los vestigios 
de un dios, demasiado difícil de aprender. 


Este libro es para aquellas personas que son incapaces de 
escribir Código Máquina pero que escriben programas en BASIC. 
Hemos tratado de escribir rutinas de todo tipo: gráficos, sonido, 
conservación de memoria, recuperación más rápida desde el 
cassette y utilidades. Todo ha sido suministrado en la forma de 
un cargador BASIC, una lista en Ensamblador y una descripción 
detallada del uso, y en algunos casos, un programa de 
demostración. 


Esperamos que este libro sea una ayuda para aquellos 
programadores que todavía no se han introducido dentro del 
complicado Código Máquina, o para aquéllos que, habiéndolo 
hecho, han tenido problemas o no han realizado las mismas 
rutinas que aquí les ofrecemos. 


Feliz tecleado. 


Clive Gifford 
Scott Vincent 


Londres, 1985 


Reposicionador de texto 


Esta subrutina cambia una cadena de caracteres de la posición 
superior a la inferior. El programa utiliza los primeros 
caracteres gráficos definibles por el usuario (User-Definable 
Graphic, UDG) por lo que habrá que tener en cuenta dos puntos. 


1) , Asegurarse que al menos hay un carácter UDG 
disponible; el número disponible puede ser cambiado 
con el comando SYMBOL AFTER. 


2) Asegurarse de que no se desea utilizar el primer 
caracter UDG disponible; si Vd. desea emplearlo, 
haga entonces SYMBOL AFTER, 1 más bajo. 


El formato para llamar a esta rutina es el siguiente: 
CALL 40000, X, Y, GAS 


X e Y son las coordenadas donde será impreso el primer 
carácter. Como la cadena será invertida, la impresión de la 
misma se hará en la pantalla de derecha a izquierda. Esto debe 
tenerse en cuenta al especificar las coordenadas. X e Y pueden 
ser cualquier integer o variable numérica, siempre que estén 
dentro de los márgenes de la pantalla. Según lo anterior CALL 
40000, a, b, (MAS tiene el mismo efecto que CALL 40000, 5, 9, 


a pS. 


La cadena conteniendo los caracteres, puede ser cualquier 
variable alfanumérica (string = variable) pero no una serie de 
caracteres encerrados entre comillas ("). Por ejemplo, CALL 
40000, X, Y, "HELLO", (O AS no trabajaría, pero esto 
difícilmente es un problema. A$ = "HELLO": CALL X, Y, Q AS 
tendría el efecto deseado. 


El signo (0 permite a la rutina pasar una variable alfanumérica 
desde y hacia Código Máquina, siendo una característica muy 
útil para el programador que se inicia en esta modalidad. Esta 
rutina trabajará en los tres modos de screen (pantalla) que tiene 
Amstrad. 


E REFPOSICIONADOR DE TESTO 
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RSX Sound (Sonido RSX) 


Este sorprendente programa te proporciona un conjunto de 
comandos similares a los que pueden encontrarse en el 
ordenador Oric. Para aquéllos que no estén familiarizados con 
las particularidades del Oric (que pueden ser el 99 por ciento de 
los lectores), diremos que una de sus excelentes características 
era la predefinición de sonidos. Si escribías en BASIC el 
comando ZAP, obtenías un sonido "ZAP"; asimismo, si tecleabas 
EXPLODE, obtenías el sonido más real de una explosión. 
Obviamente, estas facilidades ahorraban al programador gran 
cantidad de tiempo. Muchos de los listados de Oric hacen uso de 
estos útiles comandos. 


Nuestra rutina crea para el Amstrad unas posibilidades 
similares. Seis sonidos (dos más que en el Oric) han sido 
predefinidos, todos los cuales consideramos serán muy útiles; 
principalmente en programas de juegos. Después de rodar el 
programa cargador en BASIC, deberás ejecutar CALL 40000 
para inicializar la rutina. 


A partir de ese momento, dispondrás de seis nuevos comandos 
en el BASIC. Estos han sido creados con la ayuda de la ROM que 
tiene nuestro Amstrad, la cual permite que puedan crearse 
nuevas palabras (en el BASIC) mediante una rutina conocida 
como RSX. Estos seis comandos son: 


EXPLODE 
PING 
SQUELCH 
ZAP 
ALIEN 
SHOOT 


La barra vertical que precede a los nombres, es parte de las 
características de RSX y es el carácter localizado en la misma 
tecla que '(a' (a la derecha de la 'P"). 


Feliz "zapping", "squelching", y demás. 
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Caracter ampliado por 8 





Esta rutina transforma tu pequeño e insignificante carácter de 
8 por 8 pixels en un monstruo 3 veces mayor -de aquí el 
imaginativo título. La rutina es, efectivamente, bastante simple 
de escribir. Lo que hace la rutina es, en efecto, tomar el 
carácter especificado, examinarlo línea a línea y allí donde un 
pixel contiene el foreground (primer plano) color, reemplazarlo 
(el pixel) con el caracter 143 (CHRS$(143)) que representa un 
bloque sólido. Esto hace que el carácter impreso sea 3 veces 
más grande que el normal. Hábil, ¿eh? 


Esta rutina acepta el siguiente comando: 
CALL 40000, X, Y, CHAR, Pl, P2 


X e Y son las coordenadas superior-izquierda desde donde será 
impreso el carácter magnificado; CHAR es el código ASCII 
correspondiente al carácter que vamos a ampliar; Pl y P2 
controlan los colores de la mitad superior e inferior del 
carácter, respectivamente. Con esto es posible obtener un color 
diferente en cada mitad, creando un sensacional efecto. 


La siguiente rutina de demostración imprimirá dos caracteres, 
'GO' en Mode 0 con sus mitades en diferente color. Para 
cambiar los colores, simplemente pulsa la barra espaciadora. 


10 MODE 0: CLS 

20 FOR T = 0 TO 25 

30 CALL 40000, 1, 8,71, T, T+1 

40 CALL 40000, 12, 8, 79, T+1, T 

50 IF INKEY$ = "" THEN NEXT ELSE 50 
60 END 











y? CARACTER AMPLIADO FOR E 
10 SYMBOL AFTER 256: MEMORY 39997: 5YMBOL 
AFTER 240 

20 FOR n=40000 TO d007é 

50 READ afiFORE nm, VAL("E +ad) 

40 NEXT 

50 DATÁ CD, 73,BB,F5,0D0,06,B9,D0,7E,04 
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50 DATÁ LO, AS,BB,EB,D00,5£,056,00,606,05 


70 DATA 04,08,05,E5,C0,75,BB,0B,40,23 
50 DATA 05,00,7E,00,13,03,DD,7E,02,C 
90 DATA 70,BB,E1,20,0E,50,06,05,14, 
100 DATA 25,0d,3E,3F,15,02,3E,20,CD,54 
119 DATA E2,CB,39,10,EF,13,01,10,01,CD 
120 DATA 07,29,F1,C0,90,BB,09 
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Caracter ampliado por 24 


Esta es una variación sobre un tema. En lugar de poner un 
carácter 143 (CHR$(143)) por cada pixel activado, esta rutina 
permite que en su lugar sea puesto un extravagante bloque de 3 
por 3 de estos caracteres, con lo cual creamos un carácter 3 
veces mayor que el anterior y 24 veces mayor que el original. 
Obviamente, el efecto de la rutina se verá limitado si se usa en 
Mode 0, donde únicamente hay 20 columnas a lo ancho de la 
pantalla. 


Como puede verse en el formato mostrado abajo, la rutina no 
tiene otra diferencia (para su uso): 


CALL 40000, X, Y, CHAR, Pl, P2, P3 


Mediante la 'P' extra, conseguimos una mayor diferencia en el 
color del carácter. Existe una serie de posibilidades para usar 
este color extra, nosotros hemos decidido usarlo de la siguiente 
manera. Cada línea del carácter (ampliado) tiene una longitud 
de 24 caracteres por 3 de alto. El color de la primera línea de 
este rectángulo (24 caracteres por 1 de alto) es siempre 
adjudicado por Pl, la segunda por P2 y la tercera por P3. 


Probablemente, es más fácil mostrar esto en un diagrama, tal 
como el representado a continuacion: 


COLORES DE PEN SOBRE TIMES 24 PRINT 


SUPERIOR (Fila 
CARACT. y Fila 


LINEA Fila 
29 Fila 


CARAC. y Fila 
LINEA Fila 


39 da 
CARAC. 1 Fila 


HASTA COMPLETAR EL CARACTER 





LARALTER e POR =d 
SYMBOL AFTER 23061 MEMOEY 2227212 YMBOL 
áFTER 240 
20 FOR pn=44900 TU dev? 
30 FEAD aR:FORE nm, VÁLE*Z 
O NEXT 
CATA Es BB,FS,L0,96,B7,001, 16,06 
¿0 DATÁ CO, A5,BB,EB,00,2£E,6=,00, 6é, DA 
2 DATA 06, 05)05,0E,80,06,0305,ES) co 
0 DATA YO, PB2,CB,40,23,0E,C0B,d2,20,05 
20 DATÁ DO,TE, 04,18, DO, YE,00,130,03 
100 DATA DO,TE,02,00,790,BB, El 02,03,1ÁA 
IATA A1.,225,0d,5E,SF, 18,02,3E,20, El 
20 DATA 5A,BB,C0,5áA,22,C0,54,BB,CB,: 
50 DATA 10,E7%,<1.,1.1,10, es 18101110,80 
40 DATA CD,09,29,F1,0D,90,BB,07 
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0001 ; CAR *zd 

d00z ; 
22.40 0010 05. 400000 
pez 0070 GETFEN DEFL 0BB%Y=H 
e2B0 0030 SETFEN OEFL 06B2B 70H 
EBÁS 0046 MATRIX DEFL 0BBÁSH 
eera 0050 CUESOR DEFL 0BB73 
BESA 0929 TATOUIT DEFL 6BBSAH 
prga 0070 EOMENA OEFL 0B704H 
207 0050 EOMOIS DEFL 6B%0%H 
2240 CO=BE 0070 CALL GETFEN 
YC43 FS 0100 FUSH AF 
2Cdd CO0dBY v110 CALL EUMENA 
“Cd? DOTEOS 01:30 LO Ar C11+6) 
20CdA COASBB 410 CALL MATERIA 
Edo EB 0140 Ex CE, HL 
?Cd4E DO04E0= 0150 LO Li LI) 
2251 00464 0160 LO! H, (1:+10) 
2d 0603 0170 LO B,3 
92506 UC 0130 NATROW PUSH BL 
9Car 0E50 0170 EH Es 125 
PLY 0607 0:00 Lo B,=3 

20 





A PEA 
DOTE Sd 
1 1505 
C0rE9ó 
E 1303 
SE DOFEOZ 
ra COBRE 
Ma El 
Y 04603 
, 1A 
Al 
20d 
SE=SF 
21 1502 
; SEZO 
COSAÁBE 
3 COSABE 
 COSÁBE 
CBS 
10E% 
to 
El 
1003 
209 13 
; El 
“Ca 10BL 
MI 
Fi 
COWeBR 


LA 





9 AGAIN 


2366 CÓOL= 


320 EOL 


Ji 


DO DA . 
E ar E LR AR AI 
> 


SETCOL 


NATCOL 


SPACE 
PEINT 


FLUSH 
PLISH 
CÁLL 
BIT 
JE 
BIT 
JE 
LO 
E 
LO 
JE 
LO 
CALL 
POR 
LO - 
LO 
AND 
JE 
LO 
JE 
LO 
CALL 
CÁLL 
CALL 
SEL 
O.INZ 
INC 
POF 
CLINZ 
INC 
POP 
ELINZ 
CALL 
POR 
CALL 
EET 
END 


Br 

HL 
CURSOR 
9,B 
LLE 
1,E 

Z ¿COLS 
á.tlx+do 
SETCOL 
Ar 1X+0) 
SETCOL 
Ar LCIx+z0 
SETFEN 
HL 

BS 

A, CODE) 

E 
Z¿¿SFACE 


A,3z 
TATOLIT 
TETOLT 
TRTOILIT 
(3 
NXTCOL 
E 
JN 
AGAIN 
DE 
Ez 
NXTEOU 
FOmo TS 
AF 
SETFEN 
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| 





l 


) 
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Lector de cabeceras 


Esta corta rutina en Código Máquina, en conjunción con un 
programa en BASIC, te permitirá obtener los detalles que 
necesites sobre un programa grabado en cassette. No es 
necesario que grabes completamente todo el programa; la 
rutina únicamente necesita la cabecera de donde obtiene los 
siguientes parámetros de gran utilidad para identificar el 
programa: 


Nombre de archivo (File Name) 

Número de bloque (si el archivo es más largo de uno) 
Especifica si es el último bloque de un programa 

Tipo de archivo (File Type, esto es, BASIC, binario o ASCII) 
Especifica si el programa está protegido 

Longitud de los datos 

Localización de los datos 

Longitud total del archivo (File Length) 

Dirección de entrada (únicamente en archivos binarios) 


En esta rutina no es necesario el comando CALL, ya Que existe 
un programa en BASIC ocupándose del Código Máquina. La 
rutina lee la cabecera del programa, poniéndola dentro de un 
buffer de 28 bytes especialmente creado para ello. El Código 
Máquina devuelve entonces el control al programa en BASIC, el 
cual examina el buffer (mediante el comando PEEK) mostrando 
en la pantalla las diferentes informaciones descritas 
anteriormente. 


Puede que te resulte difícil encontrar inmediatamente un uso 
para este programa, pero los de este tipo son muy populares. 
Los paquetes de software que se anuncian como "rompedores de 
programas" y que permiten introducirse dentro del software 
comercial siempre tienen entre sus programas un lector de 
cabeceras (Header Reader). Otro uso para este programa es en 
aquéllos que has grabado en el cassette, pero te olvidaste de 
documentar (sí, esto es algo que nos ocurre a todos, sobre todo 
a las dos de la madrugada, recién acabado nuestro programa 
"mega-bytico"). Con esta rutina podrás obtener toda la 
información concerniente al programa que grabaste, sin tener 
que volver a cargarlo de nuevo. 


23 
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1 * LECTOR CABECERAS 

16 SYMBOL AFTER 234: MEMORY 22221 SYMBOL. 
AFTER 2d% 

20 FOR n=dó66% TO dobdv 

36 EEAÁD añiFORE n.VAL("L"+ad) 

dó NEXT 

Sá CELS 

28 LOCATE 14,12:FRINT "Comienza la cinta” 
Te CALL 40000 

56 ELE FEINT 

sb =FEEKE (d006501:buff=400501 

100 TF er=255 6070 1530 

119 IF er=0 THEN FRINT**ESCAFE*" ELSE FE 
INT"*TAÁPE ERROR=" 

130 END 

136 FEINT"proaramars *; 

140 x=buff 

150 PRAT. ERRE CPEER 03: 2d); 

160 3= (1226 ANO siburff+14 0 
Ta 150 

178 FEINT 

130 a=FEERCburfT+220 2 b=FEEE Cbuff+17) 

10 IF az20 AND b220 GOTO 2d0 

200 PEINT: FEINT*"bloques* ¡PEER Cbuff+14);5 
210 IF azr0 THEN PRINT" (primer bloques"; 
220 IF bz 209 THEN FEINT* (04 timo bloques"; 
230 FRINT 

2d0 PFEINTIFEINT"tipa programa: *; 

250 n=FEEECbuftf+130 

260 1F n= THEN FEINT'BAÁSIC"; 

¿0 1F n=1 THEN FEINT"BINARY"; 

¿50 IF n=2 THEN PRINT "SCREEN IMAGE"; 

20 1F n= THEN FEINT'ASCII"; 

300 IF FEEERbuff+2203508 THEN FEINT"! (pra 
tegidod" ELSE FEINT 

310 FEINT:¡FPEINT direccion datos:1'*¡FEEE 
Chu 10+ DARE EEK Cbuff+zzd 

320 PEINT:PEINT*lonaitud datos:";¡FEEK 
Chuffa OA FEEK (buff+28) 


330 IF n221 GOTO 2370 

340 PEINT:FEINT*introduce direccion:”; 
354 no=PEERCbuff+22 +2 OA RP PEER Cbuff+270 
340 IF nn=9 THEN FEINT" INCOMPLETO" ELSE 
FEINT nn 





370 FEINT:FEINT'lonaitud total:" 
PEER (buf f+2d1+ 206 *PEER (buf f+250 
330 LOCATE 3.12:FEINT*Fulsa cualquier ber 
a la ve cabecera 
00 WHILE INEEYE="" ¿WENO 
06 GTO 6 


) DATA 2,03 HE 11,1,00,3 ; 
DATA BL,F5,20,02,BB,F1,33, 
DATA 90,07,3 -EF +32, 2255 Ss 
CATÁ SF,9C,34,305 a de 
DATA SF/9C,ES,0E, ca: 
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ó00l : LECT CABECERAS 
paDZ o; 
2240 00109 ORG d0000 
RcAl 90:20 CSFEAD DEFL 6BCA1H 
ER03 0030 EMEES —DEFL 0BB0=3H 
20d 2173PE 064do0 LO HL,BLIFFEF: 
20d 111000 9050 LO DE, 25 
21d SEZC 0060 LO A, Z2LH 
20ds COA1Bc D07o. CALL ESFEAD 
20dB Fo 0050 PUSH AF 
22d COoSBB 0070 CÁLL EMEES 
20dF Fl 0100 POR. AF 
22050 =330d 0110 JE Es DE 
loe SE2rZ9C 01:09 LO CERREORO,A 
205 Y 0130 RET 
9254 GEFF 0140 0 LO AZ 
GOO STC 0150 LO CEREOEJ,A 
COB 2500 01:50 LO 4,0 
E e 0170 LO (FETECTI,A 


2160 SABROSO 01:20 LO A, CBUPFER+130 
“Ló3 CBd7r 0170 eIT 0,A 


0 
Go 207 0:00 AE Z¿NOPREOT 
Y 328F7L 0:10 LO.” C(FETECTI,A 
A EG0E 0220 NOPEOT ANO 1d. 
E BSF 0230 SEL A 
LOL 02d0 LO. CRLIFFER+133,4A 
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Laa 
ICINACICILIOS 


a] 
e 
m 
Li 
há 
CO 
A 
Y) 


EG 


EFS 
EFE 6 


ia 
o 
'ñ 


BUFFER 
FRTECT E 






a a € 
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Impresión de cuatro caracteres 


Si deseas un bloque de caracteres impresos formando un 
cuadrado (particularmente usado en gráficos definidos por el 
usuario, UDG), entonces ésta es la rutina que buscabas. 
Rápidamente y sin esfuerzo, esta rutina pondrá en la pantalla 
un bloque de caracteres. 


El formato es el siguiente: 
CALL 40000, X, Y, C 


X e Y son las coordenadas correspondientes a la situación del 
bloque en la pantalla. X puede estar en cualquier posición entre 
O y 639, mientras que las posiciones para Y estarán entre 0 y 
399. Observa que el tamaño del bloque limita la posición más 
alta de estos márgenes, aproximadamente en 20. Las 
coordenadas X e Y corresponden al pixel de la esquina superior 
izquierda del bloque de caracteres. 


C corresponde al código ASCII del primer carácter, 
correspondiendo los otros tres a los siguientes códigos dentro 
del ASCII. Esto es extremadamente limpio y útil para la 
creación de gráficos definidos por el usuario (UDG) donde a 
menudo se utilizan caracteres diferentes para cada una de las 
partes de un bloque más grande. 


ES IMPRESION CUATEO CARACTERES 
10 SYMBOL AFTER 25%: MEMORY ea SYMBOL 
AFTER ¿do 

FOR n=49066 TO dódda 

READ añiFOEE n,VÁL*Z 

NET 


CATA 000,4E,00,000,5E,0%, E 403,00 
DATA 5E,04,00,5%, 05,0% ; "as! ES, Ca 
DATA C0,C0,BB,01,77,0C, SN ¿LO,FC,BB 
DATA Ll Oy ES LO, FE, BB LA EL, OÍ 
CATA E-10,<B, 20,20, ,FC.10, 51,9 
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60081: IMP. dcCaRAR 
á á y Z E 
6610 OF. 4606000 
6676 ASECUE DEFL 9BBCAH 
0030 MOVABS DEFL 6BBCOH 
ó0dóo GRÁCHE DEFL 4BBFEOH 
2046 00dE96 0056 LO o 
: 3 DDBESZ 0056 LO Lo LINEA 
20d 00403 9070 LO AleLeea) 
2d a 0030 LO E 
dc 0095 00706 LO Lt 
0L0z 01060 LO BZ 
da 6110 NTEHE PUSH CE 
1 En 91:0 FLUSH HL 
ES 0130 PUSH BE 
EDC-0BB 0140 CALL MOVAR= 
0150 POR. BE 
0156 Lo AE 
0170 TINE CE 
61:30 PUSH Be 
010 CALL GERACHE 
0200 FF. Be 
0210 LO AE 
OZÓ INE 
0230 FLSH Be 
92d0 CALL EGRACHE 
E 025 FOF. BE 

A El 050 FPOF- HL 

sr 1 0270 POF-— TE 

“5 3El0 0230 LO Aria 
<GCUGA TB 90270 NEWEOW DEC HL 
2C6R 30 0390 DEE Á 
EJ a 0310 IE NZ, NEQECU 
¿E 10E1 030 CLINZ. NATEHE 
17 0330 FET 

03d6 ENC 








ma 
AAA CLA TA 
a 
E 
co 
ca 





MM A] A e 


RI 
ga 
nm 
0] 
mm 
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Inversor de pantalla 


Esta rutina rota la pantalla 1830 grados independientemente de 
cuál sea su posicion; esto hace que la parte superior se 
convierta en la inferior. Unicamente trabaja en Mode l, a pesar 
de lo cual puede ser de gran efectividad, como muestra nuestro 
programa de demostracion. 


Para acceder a esta rutina, simplemente escribe: 


CALL 40000 


1 * INVERSOR OE FÁNTALLA 
10 SYMBOÚL AFTER 2304:MEMORY 3427 =SYMBOL 
AFTER <dó 
¿0 FOR n=40080 TU dóldo 
30 READ af:FPORE n,VALC*£'*+a4) 
40 NEXT 
CATÁ 21,00,00,LC01,14, Bl, 
DATA 27,20,14,B0,23,7 
CATÁ ¿d4,05,E3,0%6,30, CS, LA, DS, Ha Oe 
20 DATA 03,5F,1F,7B,0B,12,1F,10, Fa ¡04 
CATÁ 0d4,0F,C2,04,10,FB,7<,01,12,1£ 
CATA 20,04,1d,7A, EG,07,20,0d,7A4,D6 
CATA 03,37, 0, <0, B?,20,04, TL, 29,5% 
DATA 07,20,04,70,06,08,67,01,10,09 
CATA El1,001,7A, l6,08,57,E6,38,20,14 
CATA 74,Dé, 40,57, TB,L6,30,5F,20,04 
CATA 14,1A,E6,07,20, 9d, YA,Da, 03 57 
CATA YL,06,0%, Er, EEE 20: 1d 
o DATA >ElcElaO 67,70, 06,50,6F,30,04 
50 DATA TL, 23,6 07,20, dd, 70/06, 08,67 
CATA 00,20,86,09 
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0001 ; INYE PANTALLA 
0002 ; 
9rao 0010 05 40000 


30 





ó 23106606 
' EDLARE 
: ER 


0020 CARPOS DEFL 


5630 
6846 
9050 
0020 
goré 
d05a 
d076 
61060 
1108 
120 
01:38 
616 
9150 
6150 
170 
ó1534 
d176 
0300 
6:10 
DZZÓO 
DO 
vd2d0 
0250 
0100 
0270 





ES 


A A 


> 
> 


0d0 
0dd0 
04730 
0da0 
vd7ro 
0d0 
ddv0 


NATLIN 


NXTBYT 


INVERT 


EUTATE 


CEBTOR 


Lo 
CALL 
Ex 
LO 
LO 
CÁLi 
INC 
LO 
ábo 
LO 
LO 
PLUISH 
PLISH 
LO 
FLUSH 
LO 
FLUSH 
LO 
LO 
LO 
ERA 
LO 
EL 
ERÁ 
OINZ 
LO 
RERCA 
REC 
CANE 
LO 
POP 
LO 
INC: 
JE 
INE 
LO 
ANO 
JE 
LO 
SUB 
LO 
LO 
DER 
DF: 
E 
LO 
DEC 


S6BcC1AÁH 
HL. 0 
EHEFO 
DESHL 
Lara 
H, 32 
CHRPOS 
HL 


INVERT 
Bd 


E 
EOTATE 
(HL, 0 
DE 
(DEJA 
E 


NZ, OEBTOR. 


a 
4.0 


o 
' 


NZ,OEBTÓR 


,H 


12, HLB TOR 
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06500 AND 7 








_ ós1a AE NZ, HLETOR 
> 0370 E AsH 

o 63306 áboo A,= 

De 65d LO H.Á 

> 0550 HLETOR POP BC 

a 340 DANZ NATEYT 

ss 0570 PP" ML 

De 9520 FP DE 

a oro LO A, 0 

a 000 ADO. AZ 

ps dc1ó LO 0, á 

_ Daz0 áND Sa 

TER AE NZ, DELNOK: 
20 LO 4,0 

ar SUE 4d 

TE 9560 LÓ 0, Á 

TUS paro LO. A,E 

20 BADÓ acto 4,530 

TA 06 LO EA 

STA! roo E NE, CIELANCI 
TA: orió INE O 

SCA! 720 LO 4, 0 

STAR 0730 AND 7 

PICA odo JE NZ, DELNOK 
El El Lo A,0 

SE 150 SUB. $ 

Le rro LO 0, A 

pá 97530 DELNOR LO AH 

EJ: dro SUB E 

TB 0300 LO H,A 

CB 0310 áNOD 36 

WEB ao EP Sá 

CBE 033 Ir NZ, HLLNCE 
TB: ondo LO AH 

“LE , 935 ábo Ad 

SCBB 4 OA LO H,A 

7101 a 037 LO. AL 

2 TB E 03530 SUB. 539 

“CBF € 0370 LO L,A 

200 3 9300 E NE, HLLACIE 
9CCz2 YC 010 LO A,H 

dE e 00 EE +H 

S0Cd ESO 030 Ano Y 

SECA 200d 040 E NZ, HLLACI. 
20cca ?C 0950 LO A,H 

2009 0408 0020 ADO A,E 








1906 
1010 


HLLADIE 


Lal 


OEc 


AE 
FET 
END 


| 
NZ,NXTLIN 
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Copiador de texto 





No hay gran cosa que decir sobre esta rutina, excepto que puede 
aplicársele la máxima que dice "lo pequeño es bonito". Esta 
rutina puede "volcar" el texto de la pantalla a una impresora 
conectada a tu Amstrad. 


Esto es útil en gran número de situaciones en las cuales copiar 
directamente una pantalla llena de números o datos, es mucho 
más fácil que alterar tu programa con cientos de PRINT+3s 
para sacar cada una de las líneas de texto a la impresora. Con 
esta rutina obtienes al mismo tiempo que los datos en la 
pantalla, una copia de esta pantalla en la impresora. 


Para usar esta rutina, Únicamente escribe CALL 40000, después 
rueda el programa del cual quieres sacar copias de la pantalla. 


: COPTAÁDOR DE TEXTO 

10 SYMBOL ÁFTER 256: MEMODRY 32247 
ER: 2d0 
FOR n=46000 TO dob3d 
READ añ:FORE n,VÁLC*2*+a+) 
NEXT 


CATA 2E,01,C0,17,20:,00,0d,03,26,01 

CATA ES5S,C0,75,BB,E1,C00,60,BB,LD,.<E 

CATA B0,38,FB,C00,31,80,24,10,ED, 2. 

CATA SE,90,C20,2E,20,33,FB,20,=1,80 

CATÁ 3E,04,C0,2E,20,33,FB,C0,=1,80 
100 CATÁ C1,90,20,01,07 
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0001 ; COPI TEXTO 
0002 ; 
1:40 0010 DRG 40000 
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0 2E01 
d2 CO17BL 
2 OL 


, Co? SBB 
El 
06988 
Se COFEBO 
FB 
=180 


Y COZEBO 
SFE 
cos1B80 

SEGA 
Z¿EBO 





EDS 


9072 C1 


18D 


9273 0D 
27d 2001 
976 CA 


000 
0070 
00do 
00650 
6020 
9070 
0020 
9070 
6100 
9110 
6120 
01:50 
9140 
0150 
0120 
$176 
6120 
0170 
0700 
9210 
0220 
230 
02d0 
92530 
030 
37 
0330 
0370 
000 
9310 
OO 
0330 
0d0 
050 


CHELIM 
CURSO 
EDCHÁR 
BluisY 

SENDPR 


NATEOWN 
NÁTEOL 


WAITI 


WAITE 


WAITS 


OIEFL 
DIEFL 
DEFL 
DEFL 
DEFL 
LO 
CÁLL 
INC 
INC 
PFLISH 
LO 
PUSH 
CALL 
POP 
CALL 
CALL 
HE 
CALL 
INC: 
CINE 
INE 
LO 
CALL 
AE 
CALL 
LO 
CALL 
HE 
CALL 
POF 
DEC 
JE 
RET 
ENO 


0BC1 7H 
0Bera 
0BB:0H 
V9BO0ZEH 
9BD0=1H 
El 

CHELIM 


CUESOR 
HL 
ROCHáR 
BL Y 
CWAITI 
SENOFE 
H 
NATEOL 


SÉNDPR 
4,10 

Busy 
CWÁITS 
SENODFE: 

Br 

E 
NZ,NETEOU 
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Para completar esta rutina, tenemos una demostración que es 
uno de los procesadores de texto más cortos que hayas visto. 
Este programa acepta inputs de 30 caracteres en screen Mode 
0, dejándolas en la pantalla hasta que es introducido un espacio 
o es alcanzada la parte inferior de la pantalla. Cuando alguna 
de estas cosas ocurre, la rutina Copiador Texto es llamada y la 
pantalla es copiada en la impresora. Pon el código de ¡impresión 
que desees en la línea 1 (línea de doble espacio, énfasis de 
impresión). Este programa puede no ser el Wordstar, pero 
siempre tendrás la posibilidad de mejorarlo por ti mismo. 


i * Añade aqui tus codigos de control p 
ara la impresora 
MODE 2: INE 1,23: INE 0,0:B0OFDEFR 13:FEN 
¿FAFER 0:5ÉL= 
FOR T=1 TO Zd 
LINE INFUT Aj: IF Aj=" * THEN CÁLL 400 


NExT 
CALL 40000 





Rotación a la derecha 


Esta rutina desplazará (scroll) hacia la derecha una línea de 
texto, haciendo desaparecer todos los pixels por la derecha y 
reaparecer por la izquierda (creando un efecto de rotación 
sobre la pantalla). 


Pensando que esta rutina únicamente trabaja en Mode l, tiene 
un número de parámetros para hacerla completamente flexible 
en su uso. 


CALL 40000, X, Y, N 


X equivale a las columnas, mientras que Y corresponde a la 
línea desde donde comenzará el desplazamiento. N equivale al 
número de caracteres que queremos desplazar hacia la derecha 
en esa línea. Con esto, en lugar de producir desplazamientos 
indiscriminados de grandes areas de la pantalla, podemos 
desplazar pequeñas porciones de texto o UDGs y bloque de 
gráficos, en juegos podemos mover de manera precisa símbolos 
gráficos. 


Puedes tener un número de áreas de la pantalla desplazándose 
simultáneamente, aunque en este caso es necesario para cada 
una de ellas una llamada CALL. Ya que con un CALL 
únicamente desplazamos un pixel cada columna, es necesario el 
uso de loops para mantener el movimiento de forma constante. 


Aquí tenemos un ejemplo de la rutina desplazando dos áreas de 
la pantalla en Mode l. Antes de correr el programa, llena la 
pantalla con caracteres distintos unos de otros, o escribe 
cualquier descripción. 


10 FOR T = 1 to 500 
20 CALL 40000, 5, 4, 20 

30 CALL 40000, 12, 10, 10 
40 NEXT 







ds FEOTACIÓN Á DERECHA 
19 SYMBOL AFTER 236:MEMORY 322971 SYMBOL 
AFTER 40 
FUE n=49000 TU de0vd 
READ aé:FORE nm, VÁLC*2'+a4) 
NEXT 
CATA FE, 03,000,000, 6E, 02,20, 00,4E,00 
CATÁ 000, 7E,04,51,04,02,67,C0, 14,BL 
CATA 23,41,0B,20,05,0E, 08, ES, CA ED 
CATÁ SE, YE,F35,50,54,70,<0,B7,20,04 
CIATÁ a 
100 DATA 14,CB,3E,33,04,0B,9F,13,0%,LB 
110 BATA DFSEA,3E, 20,0 ,LB, FF, 12,10, CB. 
1:20 DATA E ca! 9E,18,02,C08,DE,CB 
130 DATA ES (25,02 00 FEDIEL (E D6/0S 
140 DATÁ ¿£7,00,20,B0,07 
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0001 ; ROTA DERECHA 
00072 ; 
2.040 9019 OR 40000 
ereiá 0020 CHEFOS DEFL 9BC1AH 
*Cd0 FEOZ 000 CF S 
“ldz EQ 00d0 FET NZ 
2943 DOGE0OZ 0050 LO. L,LIX+Z0 
+Cdó 0 00:20 DECO L 
“2d DOdE00 0079 LO Cs LIX+00 
2CdA DOTEGd 0020 LO A.c¿lx+d) 
2240 1 0070 400. E 
90dE 0602 0100 Sua. 2 
LOOP 0119 LO H,Á 
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2251 COlÁBL d1:30 CALL EHEFOS 
PL Qd Za 0130 INE HL 
a El 0140 Lo Bat 
¿[56 LB0 01530 5LáÁ E 
LOS 05 6150 DEL 5 
LO? 0602 6170 LO La 
ALOE EA 0130 NaTEOW PUSH HL. 
Sal 03 910 PUSH BL 

ñ ¿Ea 0:00 SEL CHLA 
0:10 LO A, CHLA 
020 FLISH AF 
0230 NÁ¿TEYT LO Ed 
0:d0 LO D,H 
0270. LO A,L 
0250 (BE. Eo. 


0 
60 HLOR. LO 
0 


DO ma , Lp 
e IR RR LL pr PR 


410 SETRIT SET 

0420 TSTBIT BIT y CHL 
¿BITOR 

m Á 

0430 EITOR LO ¿DEJA 

0d20 DLINZ NzTBYT 

vdro FOR. AF 

9d30 IE Es WEAR 

0470 RES 3, CHL, 

0700 JE ENOFTA 

0310 WEA SET 24 HL 

520 ENDPIA B1T <,A 

230 IE Z,EOWEF TIN 

93d0 SER EGO 

0350 EOWFIN FOFR. EL 

0350 FEB HE 

037 LO á,H 


= 
a 
ES a de a 


=> 
E 
E 
=> 

ñ 
m 
—W 
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ao Á 
LO H, 
DEC. E 
ER NZ,NATECW 
RET 
END 


> Lo 


Rotación a la izquierda 


Esencialmente esta rutina es la misma que la última, 
únicamente que el desplazamiento (scroll) se produce hacia el 
lado opuesto. 


La declaración CALL es la misma: 
CALL 40000, X, Y, N 


Esta rutina (como la anterior) trabaja únicamente en Mode 1 y 
también necesita ser llamada desde un loop si se quiere 
mantener el movimiento de forma continua. Para más detalles 
consultar la rutina ROTACION DERECHA. 


- FOTACIOÓN Á IZQUIERDA 

10 SYMBOL AFTER 2od4rMEMORY 3997%: SYMBOL 
AFTER 240 

¿0 FOR n=40000 TO do037 

20 FEAD afiFORE nm VÁLC"%*"+a%) 

40 NEXT 

20 DATÁ FE,03,20,D00,6E,02,20,00,46,0d 
¿0 DATA e 46,00,C0B,:20,03 
29 DATA 0,08, E9,LD9,LB, 26, PEF O 00, 30 
20 DATA 2,20, 04,24, 7C1E61 07,20, 04, TL 
20 DATA [6,03,467,14,0B,26,35,0d,CB,A7 
100 CATA 15,02,CB, EP,CB,66,28,02,CB,07 
110 CATA 12,10,00, F1,33,04,CB,66,153,02 
120 DATÁ CB,E6,CB,67,28,02,0B,06,C01,E1 
130 DATA 70/06, 08,6 ,1,00,20,BF,L9 
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ss” 
21 


a 


Editar 
áanmás 
Eopyright 1% 


2240 
eriA 
22d0 
pd a 
“das 
“Cda 
9d? 
“EdA 
CdB 
vLAE 


O A A A IN IN a 


“dd ad y 2d dl 2d yd 1 


SA 
SEA 
FLA 
“LE 
LA 

E 
EJ 


TT A 
QA 


MANS Ars mo MD 0 NN A 
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1.1 


FEVS 
0 
OO0E9Z 
0 
0004 


E 


rn] 


CO1ABE 
O0d00 
CBz0 
03 
005 


mE 
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ássembler 


PICTLURESQLE 


6661 


000 ; 


60109 
0020 
0030 
v0dó 
00530 
0050 
9070 
0030 
9070 
0100 
0110 
01:0 
0130 
0140 
0150 
0130 
9179 
0130 
0179 
0300 
0210 
DE 
0230 
0:40 
0250 
0240 
27r0 
0230 
0270 
000 
010 
0320 
0330 
0340 
0350 
0350 


0370 
0330 
03730 
0400 
0410 


. 


CARFOS 


NATECU 


NXTBYT 


HL. 


SETBIT 
11817 


2ITOKR 


ERTÁ 


OR 
DEFL 
CP 
FET 
LO 
DEC 
LO 
Er 
CALL 
LO 
=LA 
CEC 
LO 
FLISH 
FLISH 
LA 
LO 
PLUISH 
LO 
LO 
INE 
JE 
INC 
LO 
ANO 
JE 
LO 
LB 
LO 
LO 
LA 
E 
RES 
TE 
SET 
BrT 
ME 
SET 
LO 


LINZ 


POP 


TZODTERDA 


d0000 
SELLAH 


h 


«4 


LiLLEZl 
La 
H,(1:+d) 
H 


CHARFOS 
B,(1+0) 


BL 

(HL) 

A, CHLA 
AF 

E,L 

O, H 

Es 

NZ, HLCIE 
H 

A+H 

NZ, HLOR. 
AH 


d, CHL) 
Z,BITOR. 
0,Á 
(OE7,A 
NxATBYT 
AF 





2 





9420 
0430 
eddo 
0450 
vdi0 
0dro 
0430 
0470 
0300 
0310 
030 
0330 
63dó 

270 
0320 

3rÚ 


WEAF 
ENDF Tx 


EQOWEF TIN 


JE 
RES 
JE 
SET 
EI 
JE 
SET 
POP 
FOP 
LO 
ábo 
LO 
DEC 
JE 
RET 
ENO 


CT WEAÁF 
d, (HL 
ENDOFTx 
d, (HL 
d,A 

Z ¿FOWFIN 


IZ NYTEOW 
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Fijar velocidad 


Este programa puede ser titulado 'Turbo Load and Save'; puede 
ser utilizado no únicamente para aumentar la velocidad de 
grabación y recuperación de nuestros programas, sino también 
para reducirla -quizás para una copia de seguridad o para 
aparentar que un programa es más largo de lo que es en 
realidad. 


Bien, suficiente sobre cómo y con qué trabaja este programa. 
Para alterar las velocidades, esta rutina hace uso de otra 
localizada en la ROM que tiene el Amstrad. Con el BASIC del 
Amstrad tú puedes únicamente seleccionar SPEED WRITE 0, 
(1000 baudios) y SPEED WRITE 1, (2000 baudios). Con esta 
rutina podrás seleccionar dentro de un margen de velocidades 
mucho más amplio. Sin embargo, a partir de cierta velocidad 
cargar y salvar programas se hace cada vez más inseguro. 
Nosotros encontramos, después de una constante 
experimentación, que la velocidad más rápida con fiabilidad era 
de 3300 baudios, pero que esa fiabilidad únicamente se obtenía 
si la carga y recuperación del programa se realizaba en el 
mismo ordenador. 


Dirigirse al 'Firmware Manual", capítulo 14. 125, ofrecido por 
Amsoft para una explicación completa sobre términos tales 
como "longitud  mitad-cero"  (half-zero length) y el 
funcionamiento del cassette. Todo lo que diremos aquí es que el 
formato de esta rutina es: 


CALL 40000, H, P 


H es la longitud de medio cero, pero todo lo que aquí 
necesitamos conocer es que 333,333 (un tercio de millón) 
dividido por este valor, nos dará un valor aproximado de la 
velocidad en baudios. Según esto, un valor de H = 167 nos dará 
una velocidad aproximada de 2000 baudios. 


P equivale al nivel de 'Precompensación' (dirigirse de nuevo al 
Firmware Manual para una explicación detallada). 
Teóricamente, este valor podía situarse entre 0 y 255, pero en 
la práctica valores entre 2 y 100 son más probables. Los niveles 
de precompensación que hemos encontrado más adecuados han 
sido entre 10 y 30. 
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En el caso de no especificar ningún parámetro después del 
estamento CALL, el ordenador asignará valores de 100 para H y 
10 para P. Esto da una velocidad aproximada de 3300 baudios. 


Experimenta con esta rutina, ya que para tu equipo pueden 
existir otros márgenes de velocidad distintos a los aquí 
indicados. 


: FIJAR VELOCIOAD 
10 SYMBOL AFTER 2Oc6iMEMORY = 
AFTER 240 

20 FOR n=40000 To dobza 


PERE SYMBOL 


30 READ afiFORE n ,VÁLC*2*+at) 

40 NEXT 

50 CATA FE,00,:%0, se 21,60,00,3E,0A, 1 
¿40 DATA O0C,FE, 02,200,000, 1E,00,00,6E,02 
70 DATA D0,64,0=,L a 60, BL,LA 
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0001 ; FIJA VELOCIDAD 
0002; 
22:40 0010 OR 40000 
Blás 00:20 SFEEDO  DEFL 02RCASH 
20d0 FE00 0030 CP 0 
dz 2007 0040 JE NZ,EATVALS 
2Cdd 216d00 0050 LO HL,100 
3d? 3E0A 00:50 LO A,10 
22d 1300 0070 - E CONT 
22dB FEOZ 0030 GTVALS CF y 
2240 0 0070 FET NZ 
20dE DOTE00 0100 LO A, C1X+0) 
2251 DOGEOZ 0110 Lo L,C1IX+Z) 
2254 00ec0s 01:20 Lo H,CIX+D) 
2257 COGSBk 0130 CONT CALL SFEEO 
9C5A CA 0140 FET 
0150 END 


Desplazamiento rápido 
de la pantalla 


Para escribir muchos tipos de programas de acción, así como 
para conseguir excitantes efectos visuales para casi cualquier 
programa, un desplazamiento (scroll) rápido, y sin salto, de la 
pantalla es una de las más útiles adiciones a tu colección de 
rutinas en Código Máquina. 


Una vez llamada esta rutina, puede desplazar toda la pantalla el 
espacio de una línea hacia arriba o hacia abajo. El formato para 
CALL es: 


CALL 40000, C, UD 


C corresponde al color de la tinta que tomará la línea "vacía" 
que aparecerá arriba o abajo, dependiendo del tipo de scroll que 
uses. El parámetro UD define la dirección del movimiento; '0' 
para abajo y 'l' para arriba. 


po? DESPLAZAMIENTO DE FANTALLA 

10 SYMBOL AFTER 256:MEMORY 39999: 5YMBOL 
AFTER 240 

20 FOR n=49000 TO do015 


230 FEÁD ar:FORE nm, ,VALC*2%*+a4) 

40 NEXT 

50. DATA FE,02,20,00,46,00,00,7E,02,C0 
40 DATA 2202,B2,20,40,B0,02 
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9001; DESP PANTALLA 
00072 ; | 

9040 0010 ORG 40000 

BCZC 0030 ENCODE DEFL OBCZCH 

Ec4D 0030 HWEOLL DEFL 0BC40H 

2040 FEO2 0040 CE z 
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vEdz CO 
Ed DOdi00 
20d DOYEOZ 
AL47 EISTBL 
Ed COdoBL: 
HILL 


0050 
004 
voro 
0020 
0070 
0100 
0119 


FET NZ 

LO E, (1:+05 
LO A, CIA+ 20 
CALL ENCODIE 
CALL HWEDLL 
FEET 

ENOI 
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La pista de los diamantes 


Para demostrar la rapidez y suavidad de este scroll 
(desplazamiento), aquí tenemos un corto programa con cuya 
ejecución podrás divertirte mucho. Está basado en esos juegos 
en los cuales se desplaza una pista y debemos evitar vernos 
fuera de sus límites. Nuestro juego es más complicado que eso. 
Tú estás viajando a través del famoso Central African Diamond 
Trail (pista o sendero de diamantes del Africa Central) en busca 
de sus escurridizas gemas. El sendero es peligroso y contiene 
muchos riesgos potencialmente fatales -indicados por una cruz 
roja. Los diamantes de suave brillo azul son los que has venido a 
buscar y podrás conseguirlos pasando por encima de ellos con tu 
coche, esto te dará 50 puntos extra. También conseguirás 10 
puntos por cada décima de milla que viajes y el juego continúa 
hasta que te estrelles. 


El juego utiliza el fast scroll (desplazamiento rápido) para 
mover hacia ti la carretera suave y rápidamente. El juego 
también indica la puntuación máxima y la que vamos 
obteniendo. Adelante... ponte a jugar. 
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10 RANDOM 1 ZE TIME:hi=8 
20 ELlaisc= ¡3334 INTCRNDe2d) 101002 
30 34 INTCPNDS zado cta 
d0 LOCATE 1,1:FERINT STRINGE(:<,CHEEC1Id00 
SETRINGE OY, : MS  STRINGE(40==—y,CHRF(145) 
3 
50 IF ENDx0.=2 THEN FEN =S:LOCATE =+1+INT(C 
ENDReyo0, 120 PEINT CHECO 03): FEN 1 
¿0 IF END: 20.13 THEN FEN <o0LOCATE <+1+INT 
CEND:y),. 1: PRINT CHESCZI7): FEN 1 
FO LOCATE c,22:FEINT" * 
20 c=c+ LC INEEY(3)=90)-CINEEYC(12=09) 
0 CALL 40000,0,0 
100 LOCATE 15,251 FEINT "PUNTUACION" =":sc 
110 t=TEST(creló-5,54) 
1:20 IF t=1 OE t=2 6070 1530 
130 IF t=2 THEN SOUNO 1,40,5,1:sc=sc+ 50 
140 seo=sc+10:1F se MOOcl 200= 06 THEN yv=wy- 
1-(y=35) 
150 LOCATE CN 
140 x==+ INT CENDe 3) 1 Cu 2d (325) 
170 GOTO 40 
130 ELSSLOCATE %,10:PEINT'ECCOCORRERAAAASS 
AAA 
SOUNO 1,1000,:00,7 
LOCATE 13,12:FEINT*Tu puntuacion'*3sc 
IF sczihi GOTO 230 
LOCATE 14,15:FERINT"FUNTUACIÓN MÁS AL 
¿hiso 
LOCATE 13,20:FERINT"*PFUNTUIACION =*"5sh1 
LOCATE 4,2300: PEINT*"Fulsa espacio para 
Jugar nuevamente” 
2500 WHILE INEEYE<>" *:WENO 
260 GOTO 20 
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Desplazamiento de bloques 


Esta práctica utilidad puede desplazar una porción de la 
pantalla hacia arriba o abajo. La 'caja' (box) necesita ser 
definida mediante el estamento CALL, asimismo es necesario 
definir el color y la dirección del movimiento; 1 hacia arriba y 0 
hacia abajo. 


Cuando se ejecuta el comando CALL, la caja se desplazará 
(scroll) una línea completa. La rutina ejecuta un desplazamiento 
extremadamente rápido. El formato de CALL es: 


CALL 40000, L, R, T,B, P, D 


L corresponde a la posición izquierda, R es la derecha, T 
corresponde a la parte superior y B a la inferior de la 'caja'. 
Esta caja o rectangulo es definida de una forma similar a 
cuando se utiliza el comando BASIC WINDOW. P es el color de 
la tinta y D determina la dirección del desplazamiento; 0 para 
abajo y 1 hacia arriba. 
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Ss DESPLAZAMIENTO BLOQUES 
10 SYMBOL AFTER 2o6:MEMOR Y 3979775 
AFTER 40 
20 FOR n=40000 TO d00=1 
READ afiPOEE nm VÁALC"£"+a4) 


NEXT 

CATA FE,06,20,00,44,00,00,7E,02,00 
CATA 3E,04, 00,2E, 06,00, 35 "08, DO, 4 
CIATA 04, 10,20, rape NA de E BO BC,C0,50 
CATA BL, 
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0001 ; ESF BLOQUES 
0002 ; 
240 0010 ORG. d0000 
BLE. 0020 ENCODE DEFL 0BCZcH 
2.50 0030 SVEROLL DEFL 0Bc050H 
240 FEOS v0do CP E 
dz CO 0070 FEET  NZ 
2243 D0O0d600 0020 LO 2, (1:+0) 
20d DOTEOZ 0070 LO A, (1A+HL) 
224% DOSEOd 0030 LO! E, (1x+4) 
92dC 004E0a 0070 LO L.,(1x+6) 
2CdF 00S60s 0100 LO O, ¿1450 
YES2 DOESDA 0110 LO H, (1:+10) 
9553 1D 0120 DEC: E 
2256 20 01:30 DELL 
SLOT IS 0140 DEC DO 
9038 23 0130 DEC. :H 
9139 CO2CBC 0160 CALL ENCODE 
PUSO CDSOBL 0170 CALL =SWEÓLL 
SCSF [2 01:30 RET 
0170 ENO 
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Rejilla de diseño 


Si tú realizas dibujos en tu Amstrad, o diseñas pantallas de 
texto y gráficos para usar en programas, entonces encontrarás 
que una matriz de rectángulos o rejilla, que cubra la pantalla a 
un toque de botón durante el diseño, desapareciendo 
posteriormente a otro toque de botón sin dejar rastro, ni 
dañando el dibujo, es algo muy útil. 


Bien, esto es exactamente lo que hace la rutina Rejilla Diseño 
mediante el uso de una función especial del Código Máquina 
llamada OR Exclusiva “o de forma abreviada XOR 
(extrañamente no forma parte del planeta Zilog). 


La ejecución de CALL 40000 mostrará instantáneamente una 
matriz de 8 por 8 pixels en la parte superior de la pantalla que 
estás diseñando. Esta rutina trabaja en cualquier modo de 
screen y se ajusta de tal forma que contiene muchas más líneas 
en Mode 2 y muchas menos en Mode l. 


Una segunda ejecución de CALL 40000 eliminará la rejilla de tu 
pantalla, pero dejará 'sin tocar' tu dibujo, esto es debido a la 
característica XOR del Código Máquina. 


La mejor forma de utilizarla es en medio de un programa 
artístico donde esta rutina es llamada apretando un botón 
simplemente. Siguiendo desde este punto, aquí tenemos un corto 
y simple programa artístico en BASIC que te permite realizar 
dibujos mediante el joystick en screen Mode l. Pulsando el 
botón de disparo una vez aparecerá la rejilla, una segunda 
pulsación la hará desaparecer. Estoy seguro que tú eres capaz 
de escribir un programa de dibujo mucho más complejo; el 
propósito del mío es simplemente demostrativo. 


'La rejilla fue deliberadamente diseñada para 3 por 3 pixels, de 
manera que corresponda completamente con un carácter de 
texto. Esta rutina puede ser usada no únicamente para dibujar 
en programas gráficos, sino incluso para una detallada 
presentación en pantalla de texto o semitexto. 
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ds REJILLA DE DISEÑO 
10 SYMBOL AFTER 236: MEMORY 3292715 YMBOL 
AFTER: d0 
0 FOR n=46000 TO 40023 
READ af:¡PORE n.VÁLC*2'*+2a%) 
NEx=T 
DATA SES, OL LO 00. BE) LO dal BL SL DE 
CATA 04A, CB,21, 30,20, FE,SE,01, Cl, eL 
CIATÁ ec, 1t, 07,00,41,L35,21,00,00,01 
DATA 00, Fo, DO EL 23 BG¿Dl, F1,0%4 
CIATÁ 08: 13,10, FOo,C1,10,E4,67,24,00 
100 CATA 29,29,29,2B, 4D, dd,21, 00,00,1E 
110 DATA 1%,F3,05,23 ES, 11,00, 00, CO, 3F 
1:20 DATA BC:,E1,0%, 
130 DATA 10,20,EA4,C7 
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0001 ; REI DISENO 

0002 ; 
22.40 0010 ORG. 40000 
lado 9020 20EMOO DEFL 0BC=3H 
ec:11 0030 MODE CEFL 0BC:11H 
BLEL 0040 INEENC DEFL 0BcZcH 
BCOF 0050 SCRHOR DEFL 0BC3FH 
Braz 0020 3CEVER DEFL 0BL 42H 
29Cd0 =E01 0070 LO A,l 
dz COSvBr 0030 CALL ADEMOO 
9c45 CD11BC 0070 CALL MODE 
Cds SE 0100 INE A 
2249 0E0A 0110 LO -,10 
7C4B CB21 0120 WIOTH <LA E 
9.40 30 01:39 DEC A 
9CdE 20FB 0140 E NZ, WIDTH 
2.050 5E01 0130 LO A,1 
9132 COZCBL 01:60 CALL INEENC 
9253 110700 0170 LO DE,7 
9c5s dl 0150 LO B,£ 
9059 LS 0170 NxXTVER PUSH BL 
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YESA 
30 


A AA 
CACTOITA CACA E DN) 5 AE 


E 


AETECIÓOA 


Ari in 
q 





¿10000 
011.700 
FS 
o3 


2 COR ZBE 


e) 


> 
du 


119990 


COSFPBL 


El 





ENS 
HG 


MOVE x 


NA THOR: 


MOVEY 


LO 
LO 
PLISH 
PLISH 
CALL 
POP 
POF 
LO 
INE 
CLINZ 
POR 
ELINZ 
LO 
LO 
Acc 
Aca 
Acc 
DEL: 
LO 
LO 
LO 
LO 
FLISH 
ELISH 
PLISH 
ELISA 
LO 
CALL 
POP 
LO 
INC: 
OLINZ 
POR 
POE 
POF 
DEC: 
TE 
EET 
ENUCI 


HL,0 
DESIAY 
AF 

CIE 
SEEVER 
CE 


BS 


MOVEX 
Br 
Nx TVEF: 
LE 
H,0 
HL, HL 
HL, HL 


cE,0 
SCEHOR: 
HL 

B,3 

H 
MOVEY 
¡0 

CE 

AF 

E 

NZ, NTHODF: 


Explosión gráfica 





Si alguna vez has escrito juegos de acción, entonces te apuesto 
a que a menudo has deseado tener una buena, rápida y 
espectacular rutina de explosión. Reconozco que anteriormente 
a escribir ésta, había hecho muchos intentos en BASIC, pero 
todos carecían del suave desplazamiento y calidad del Código 
Máquina. 


Esta rutina, como podemos ver abajo, es seguida por una buena 
cantidad de parametros: 


CALL 40000, L, R, T, B, TY, D 


Los cuatro primeros parámetros fijan el rectángulo donde debe 
producirse la explosión. Como podrás comprobar, para obtener 
un buen efecto de explosión, necesitarás un rectángulo de 
tamaño razonable, L y R determinan la posición izquierda y 
derecha del rectángulo en la pantalla, mientras que T y B 
establecen la parte superior e inferior. El rectángulo se define 
de la misma forma que el comando Amstrad WINDOW. 


A través del comando TY podemos seleccionar dos tipos de 
explosión disponibles. '0' selecciona la explosión que cubre 
completamente el rectángulo. 'l' selecciona el otro tipo, con el 
cual únicamente hacemos 'explotar' algunos caracteres dentro 
del rectángulo. Si, por ejemplo, tienes una nave espacial 
realizada con dos caracteres dentro de un rectángulo de 3 por 3, 
entonces con la explosión tipo 1 únicamente explotarán los dos 
caracteres; sin embargo, con la tipo 0, 'explotarán' los 9 
caracteres contenidos en el rectángulo de 3 por 3. 


El último parámetro corresponde al retardo. Las áreas más 
pequeñas explotan antes que las más grandes, luego el retardo 
debe ajustarse de acuerdo con esto. Deberás experimentar con 
la rutina para encontrar el retardo que se ajusta al tamaño del 
rectángulo y al programa. Cuanto más alto sea el valor, mayor 
será el retardo y mas lenta la explosión. 


La rutina no es efectiva cuando se emplea en grandes áreas, 
pero puede trabajar en los tres modos de screen. Para realizar 
la explosión utiliza todos los colores disponibles en el modo en 
que se encuentra. 
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e EXPLOSION 

10 SYMBOL AFTER 256: MEMORY 39999: 5YMBOL 

AFTER 240 

20 FOR n=40000 TO 40226 

30 READ af:iPOKE nm,VAL(*2*+at) 

40 NEXT 

50 DATÁ FE,06,00,C0,06,B7,00,5E,06,DD 

£0 DATA £6,04,20,25,00,7E,053,74,4F,CD 

70 DATA 14,EC,AF,S1,10,F0,47,00,7E,04 

20 DATA 0D,4E,06,00,71,4F,EB,71,00,00 

>0 DATA 0D. 7E.02, 17,20,45,05,05,3E,08 

100 DATA FS,C5,D05,7E,23,B6,23,0B,74,78 

110 DATA 03. 21100, 00,12,10,20,04,14,7A 

120 DATA Eó,07,20,0d,7A,D6,08,57,10,ES 
DATA D1.7A,08,08,57,01,F1,30,20.08 
DATA 7A,D6,40,57,7B,06,50,5F,20,04 
DATA 14,7A,E£,07,20,04,74,06,03,57 
DATA 00,20,BF,01,01,3E,0F,F5,C5,05 
DATA DO, 7E,00,30,76,3D,20,FC,3E,08 
DATA FS,C5,05,7E,23,B6,23,CB,74,28 
DATA 03,21,00,00,EB,A6,EB,12,10,20 
DATA 04,1d,7A,E4,07,20,04,74,D6,08 
DATA 57,10,E2,D01,74,06,08,57,01,F1 
DATA 30,20,05,74,06,40,57,7B,06,50 
DATA 5F,30,04,14,7A4,E6,07,20,04,7A 
DATA Dé, 95,57,00,20, BC0,D1,C1,F1,30 
DATA 20,4B,3E,00,00,5E,04,00,6E,06 
DATA DD,56,08,D0,6,04,10,20,15,25 
DATA C0,44,B0,C00,09,B9,0> 
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0001 ; EXF. GRAFICA 

0002 ; 
240 00109 ORG d0000 
eciA 00:20 CHEFOS DEFL 0Bc:1AH 
Bros 00230 EOMENA DEFL 0B%04H 
Bro? 0040 FOMOIS DEFL 0B%0%H 
Bcdd 0050 FILBOxX OEFL 0BcddH 
2.2d0 FEtE 00:60 TF E 
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9dz 
*0d3 
2Tda 
“Cda 
2040 


Ld4O0 2 


PCdE 
Lal 
Es 


FAS 


+EDÓ6 


2CSP E 


Co 

208 B2 
ODER 
OO 0 A 


DOTEOS 
24 
AF 
CD1ABC 
AF 


SB DO7TEO4 


OOIdEos 
9c 


Al 





:; dE 


EB 
10000 


3 DOYEOZ 


p07o 
0030 
0079 
0100 
0110 
01:20 
0130 
0140 
0150 
0160 
0170 
01:30 
0170 
0200 
0210 
0220 
0230 
0240 
0250 
0360 


270 


A! 


SO =o>o=> 
IO 


SS 
E Il O COL A 
=> 


AN 


ASS AA 


0410 
040 
0440 
0430 
0460 
0470 
0430 
0470 
05300 
0310 
0320 
0330 


= 
q 

2) 
> 


BYTES 


NATEOWW 
NATLIN 


NATBYT 


INEOM 


RET 
CALL 
LO 
LO 
DEC 
DEC: 
LO 
SUB 
LO 
CALL 
0 
ácio. 
DINZ 
LO 
Lo 
LO 
DEC 
SUB 


FLUISH 
FLISH 
PLISH 
LO 
INE 
TE 
INC 
BIT 
JE 
LO 
LO 
INC 
JE 
INC 
LO 
ANO 
JE 
LO 
SUB 
Lo 


NZ 
FEOMENÁ 

Ls TIA+G4 
Ay TLAPID 


TI - 


2 > CO a de qe 0 Td E 


=E 

TM. 
. > 

== TI 
= 


IN) 
á 
NZ,FPÁRTZ 
Br 

IE 

A,E 

AF 

ac 


AsH 

Z. INECM 
HL,0 , 
COE),A 

E 
NZ,GOTBYT 
al 

A, bl 


NZ,GOTBYT 
a,b 


DA 


57 


58 


da 
0 


7 
2 


E 
8] 


Al 
| 


“od 
Q 


>> 


ES 


A E RS E E A A A A A E 
O E E CACA A i 


CI a A 





pe 
> 


a 
La 





Ce? 
210000 


0340 GOTBYT DLUINZ NTEYT 


0350 
560 
Dari 
yanó 
9370 
0200 
0410 
dEZA 
030 
06£dó 
0630 
0660 
dETO 
0630 
A) 
0700 
0710 
Pz0 
070 
ovrdo 
075 
070 
077 
0730 
0720 
0200 
010 


IN ON A 


O O] 


. 
qu 


30 08 
cu d 


E 


08 
ul 


AN] 
SOS SO So Soo>SosSS>oS> 


S 
SS 


GOTECI) 


PARTE 


FACIE 


PALIZE 


NEWE:CIU 
NEWL IN 


NEWBYT 


FOF 
LO 
Apo 
LO 
POF 
POP 
DEL 
JE 
Lo 
SUB 
LO 
LO 
ácin 
LO 
JE 
INC 
LO 
ANO 
JE 
LO 
SUB 
LO 
CEC 
A 
POF 
POF 
LO 
PLISH 
PLUISH 
FLISH 
LO 
INC: 
HALT 
DEC: 
AE 
LO 
PUSH 
PLISH 
PLUSH 
LO 
INC: 
0 
INC 
B1T 
JE 
LO 


cIE 


NZ, GOTECU) 
a, 0 


D,A 

E 
NZ.¿NXTEOU 
TIE 

BE 

A,13 

AF 

Ek 

clE 

AC IX+0) 
A 


Á 
NZ,FALISE 
ALE 
AF 

Br 

IE 

A, (HL 
HL 
CHLO 
HL 
EH 
Z¿FEUM 
HL,0 


200 
C011 
2COZ2 
22 0= 
“LE: DId 


“COS 2 


SEO? 
2C08 
e 
E OB. 
SCO0b0 
“COE 


FEOS 


“CE 1 
SES 
9 CEd 
CES 
SCEF 
“CES 
SCEY 


CEA 3 


“CER 
9CED 
9CEE 
9FO 
9cF1 
9cFZ 


PCF4 : 
SOLES 3 


SF? 
CFE 
ALF 
“CFB 
SCFO 
"Y9CFE 
2000 
200 1 
2002 
2004 
2005 
2004 


9007 3 
9008 2 


2004 
9DOr 
9D0F 
2012 


E00 

COSEOd 
OO GEO 
003203 


1410 
10:0 
100 
1049 
1030 
1060 
1070 
100 
1970 


Ez 


so 
ASA SSA 


a e A A pe A pe A ps 
Pe Po EI ÓN A AIR RIAL 
A A A 
SOS Oo > Oo aos 


e 
ER 

¡3 
So 


ROM 


FNOBYT 


FNCIECI) 


Ex 
ANO 
EX 
LO 
INE 
TE 
INC: 
LO 
ANO 
JE 
LO 
SUE 
LO 
CINZ 
POP 
LO 
ac 
LO 
POE 
POP 
DEC 
Me 
LO 
SUB 
LO 
LO 
ábo 
LO 
E 
INC: 
LO 
ANO 
JE 
LO 
SUB 
LO 
per 
AE 
FOF 
FPOF 
POP 
EC 
TE 
LO 
LO 
LO 
Lo 


OIE, HL 
(HL 

DE. HL 
(DE), Á 

E 
NZ,FNOBYT 
o 

A, O 
NZ,FNOBYT 
á, Ol 


0, á 
NEWBEYT 


NZ, NEWL IN 
A, Ml 


“Ppamz 
so 


Dia . -. a. 


FNOF CU) 


a 


2, FNOE CI 


A, 0 
sb 


SRP OZMPDROA 


NZ, NEWROI 
IE 

Br 

AF 

Á 

NZ, FADE 
A,0 

E, (1x+d) 
Ly CIx+é) 
O, CI+30 
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1450 
1470 

500 
1510 
15:30 
1530 
1540 
1550 


1300 


LO H,21Ix+100 
DEE E 

HELL 

Ec 0 

DEC H 

CALL FILAC 
CALL EOMOIS 
FEET 

ENO 


Analizador de pantalla 


Esta rutina realiza una función de las más útiles; comprueba 
que un carácter está situado en una determinada posición de la 
pantalla. Esta función es frecuentemente usada en juegos 
gráficos con movimiento, y algunos home computers tienen una 
instrucción BASIC -tal como SCRN en el Spectrum- para 
realizar la labor de nuestra rutina. 


La rutina trabaja en los tres modos de screen que tiene el 
Amstrad y debe ser llamada con el formato que se muestra a 
continuacion: 


C% = 0: CALL 40000, A, B, Q C% 


A y B son las coordenadas de la posición que será 'chequeada' 
(comparada) en la pantalla, mientras que C% es la variable que 
contiene el código ASCII del carácter que reside en la posición 
especificada. C% debe ser un entero (de aquí el signo '%' 
después de la variable) y necesita ser definido antes que CALL, 
de otra forma se generará un error. 





1 

16 SYMBOL AÁFTEE 
AFTER dé 

“á FOR p=46066 TU 601 


30 EEAD aFiFORE 6 

NExT 
30 DATÁ D00,4E,02,00,66,0d,C0,75,BB,C0 
¿0 DATA ¿0,B2,00,26E,00,D000.66,01,77,09 
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0001 

000% ; 
0d0 v016 DERE. 406000: 
pera 0020 CUESOR DEFL 6BB73H 
BEBA 0020 EDEHÁR DEFL 9BB:0H 
22040 DOBE0:: veda LO La LAST 
“Cda DO 0d 0030 LO H, CLA+9) 
> COF3B8 0020 CALL CUESOR 
? COS6BB dora CALL EDCHAF: 

- DOEGO 0070 LO La C11+0) 
Ole e 1 0070 LE Ha Ela+dd 
A 0100 LO (HL, A 
Ma do o116 FET 

01:20 EMO 


; ANAL FANTALLA 
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Impresión de nueve caracteres 


Una rutina anterior, Impresión de Cuatro Caracteres, ha sido 
rediseñada y ampliada para proporcionar un bloque de 3 por 3 
caracteres que puede ser situado en cualquier lugar de la 
pantalla gráfica sin la necesidad de tener que usar TAG y 
TAGOFF, o cualquier otro comando complejo. 


El principio para esta rutina es el mismo que para su 
predecesora. CALL 40000, X, Y, C iniciará la impresión del 
bloque en la pantalla gráfica, las coordenadas X e Y 
corresponden a la parte superior izquierda del bloque. 


Naturalmente, la diferencia principal es el número de 
caracteres en pantalla. C— sigue siendo el código ASCII 
correspondiente al primer carácter pero ahora siguen otros 3 
caracteres más. Esto únicamente requerirá un poco más de 
esfuerzo en el planteamiento de tu diseño. 


Como en la primera rutina, el principal uso de ésta es la de 
poder mover con facilidad un grupo de UDGs (User Definable 
Graphic) alrededor de la pantalla. 


IMPRESION LARALTERES 
=YMELCIL AFTER 236 1MEMORY 22221 =SYMBOL 
<d0 
FOR n=40000 TÚ o 
READ añiPORE nm, VÁLC"E"+ad) 
NExT 


CATA 000,4E,00,001,6£,02<,00,466,03, 00 
DATA 53,04,00,56,05,06,03,D05,E5,05 
CATA CO, LO, ¿BBs? 00 50D, PE,BE 
DATA C01,77,00,C05,CD, FC,BB, E 
20 DATÁ CS, "ED; FE,BB,E1,Ela LBS SE, 10,22 
190 CIATA 30,20, FC, 10,DA,0% 
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Editor Á 
ámmás 1 
Copyright 


a DOdEGÓ 
DOE SZ 
2 OA 
“2 pDO0SEd 
Co Ossa 
0403 
LN 
teo ES 

0 


pd LULOEE 





A CO 
COFCER 
E El 









On 
Z COFCRE 
ES | 


E 
Mide 


E COFCEB 
+26 1 

El 

E JE 

F 23El0 
1 3B 

¿ 20 
O eL 
“Era 100 


Y dear Dr E ds 
ALP LA 


00061 


0002 


9010 
0070 
000 
20040 
6030 
900 
doTrá 
9050 
B07Ó 
0100 
901109 
9130 
0120 
ó1d0 
9150 
0120 
9176 
91:20 
0170 
0200 
0210 
OEZO 
0230 
02d 
020 
0220 


6310 
0330 
$240 


ASECLUE 
MNOWAB= 
GEACHE 


No TEAF: 


NEWECI) 


IMP 


AE 
DIEFL 
CIEFL 
DIEFL 
LO 
LO 
LO 
LO 
LO 
LÓ 
PLISH 
PLUISH 
ELISA 
CALL 
POR 
LO 
INE 
PUSH 
CALL 
FRE 
LO 
INE 
PILISH 
CALL 
PROF 
LE 
INE 
ELISA 
CALL 
ETE 
POP 
PROF 
LO 
ger 
DEC: 
JE 
DILINZ 
EET 
ENCI 


LARAÁL 


46000 
SERAN 
6BBC0H 
SGERBFEHA 
Es 1I+00 
Lo TAE) 
HL I+D 
Estlx+do 
Dolar 
B,3 

DE 

HL 

Er 
MEVAB:S 


GRACHE 
¡dl 

Ar 

E 

Br 
GERAÁCHE 
EC 

á,E 


BE 

GRACHE 

Be 

HL 

CE 

Arlo 

HL. 

Á 

NZ, NEWEC4) 
NATCHE 





Este pequeño programa de demostración hace rebotar una 
pelota alrededor de la pantalla, mostrándonos la velocidad de la 
rutina Impresión de Nueve Caracteres. Recuerda, cuando 
observes la pelota moviéndose por la pantalla, que lo hace a 
través de los gráficos, no del texto. 


0 SYMBOL 240,0,0,0,0,0,0,0,0 
0 SYMBOL 241,0,0,0,0,0,0,0,0 

10 SYMBOL 2472,0,0,0,0,0,0,0,0 

0 SYMBOL 243,0,0,0,0,0,0,0,0 

50 SYMBOL 244,60,126,255,255,255,255, 17% 


20 SYMBOL 245,0,0,0,0,0.0,9,0 
YO SYMBOL 2d46,0,0,0,0,0,0,0,0 
30 SYMBOL “47,0,0,0,0,0,0,09,0 


20 SYMBOL 248,0,0,0,0,0,0,0,0 
100 BORDER Z:iCLE 

110 ===32010v=200r1a=1lárib=14 

1:0 CÁLL 400600,x,v,2d0 

130 ux=xt+arvy=w+tb 

140 IF 210 0 6400 THEN a=-a:S0UNO 1,4 


150 1F v250 0R v 300 THEN b==b:30UND 1,5 


120 GOTO 120 
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Italicas 


Mediante el comando SYMBOL, es posible crear un conjunto 
completo de nuevos caracteres. Considera, sin embargo, la 
cantidad de trabajo que conllevaría el realizar todas las letras 
mayúsculas, minúsculas, números y símbolos, poniendo cada uno 
de ellos dentro de una matriz de 3 por 8; estoy seguro de que 
estarás de acuerdo conmigo en que este programa es mucho más 
fácil y rápido de usar. 


El formato es: 
CALL 40000, R 


R corresponde a la línea que deseas cambiar a caracteres 
itálicos. Originalmente hicimos que la rutina cambiara toda la 
pantalla, pero vimos que esto reducía su uso y flexibilidad. 
Pensamos también en la posibilidad de especificar la línea y la 
columna, de manera que se pudiese 'italizar' un carácter, pero 
este sistema sería muy lento en el caso de una frase, 
necesitando gran cantidad de accesos a la rutina. El parámetro 
resultante -el que especifica la línea- es lo que consideramos 
como mejor compromiso, este es el tipo de situaciones con las 
que te puedes encontrar cuando escribas tus propias rutinas en 
Código Máquina. 


A diferencia de la mayoría de nuestras rutinas, ésta únicamente 
trabaja en screen Mode l. Esto es debido a que la rutina accede 
a la pantalla directamente. Los caracteres están inclinados 
hacia la derecha, como en el caso de los caracteres itálicos, 
haciendo de esta manera que una pequeña porción del carácter 
n2 40 se deslice fuera de la pantalla. 
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L* ITALICAS 
10 SYMBOL AFTER 256: MEMORY 2322 YHRBOL 
ÁFTER 2d6 
20 FOR n=4800%0 TO 40071 
READ aRiFORE n. VALOR +ado 
NEXT 
30 DATA Ef e 
0 DATA BC,23,0E,07,05,ES,CB,5E 


29 DATA 50,5d,7D, 2D, 27120194! 

20 CATA 07,20,0d, Pr L6,05,67, 

70 DATA 35,04, LO, ,15,0%, LB, DF; ca, SE 
00 DATA 28,02,CB, EF 12,10,0B, CB, PE,El 

110 DATA 00,20,00,70,006,08,67, Eds 00,30 

130 DATA 07,09 
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0001 ; ITALICAS 

000 ; 
22:40 0010 ORG. 40000 
Breiá 0020 EHEPOS DEFL 0Bc1AH 
22:40 E 0030 Ci 
“141 ES 0040 FEET 
PLd2 COGE0O 00730 LO 
2243 0 0020 EL 
YLdéó 2627 dor LO 
2248 ECO1ABL 000 LÁLL 
79LdB 3 0070 INE: 
CAL 0E07 0100 2 ME : 
9 LdE ES 06110 NATEOYW PUSH EC 
7CdF ES 01:20 SCROLL PUSH HL 
YL50 CBSE 0130 SEL CHLA 


-.] 


MTI Ti 
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IA 
OE ae 
Er 
mí dq 0 
YA A 
Cd 
po 
Pú 


TS 


1 

e 
il 
1 


SR EOS 


A 
uy 


4 
Ga 


d 
a Z0LP 


21 
O] 


8 
a 





61dó 
0150 
vlob 


6170 





0470 
0da0 
0470 
040 
0d70 
05300 


NXTEYT 


HLOIE: 


LO 
LO 
LO 
LO 
OE 
CE 
JE 
LO 
TEC: 
ANO 
JE 
LO 
áci 
LO 
LO 
SEL 
AE 
RES 
IE 
SET 
B1T 
AE 
SET 
LO 
CLAAZ 
RES 
FOF 
DEL: 
JE 
LO 
ácbic 
LO 
POF 
DEC 
AE 
FEET 
ENG 


mama 
pi 


Pp 
TI - 

E E 

ES 

PE 


4 
5 
le 
a] 


e Tas 


e a 


. . 


dl Ha <A e TT e ZA TI 


(DE), A 
NXTEYT 

3, (HL) 

HL 

L: 

NZ, SCROLL 
AH 


E 
NZ NITRO 


Letras inclinadas 





Esta rutina tiene mucho en común con la anterior, Itálicas. Ella 
produce la inclinación hacia atrás de todos los caracteres 
contenidos en una línea determinada. La instrucción CALL es 
exactamente la misma que para la rutina Itálicas: 


CALL 40000, R 


La única diferencia es que ahora es la 12 columna en lugar de la 
402 la que pierde parcialmente su caracter. 


E LETRAS INCLINADAS 

10 SYMBOL AFTER 206:MEMURY 3497812 

AFTER ¿do 

20 FOR n=40069 Ti ¿0063 
READ ad:FOREE nm, ,VÁLE*z 
NEXT 
CATA B7,2S,000,6E,008,<0, 2: 


2 *+at) 


CATÁ BC,0E,07,L=3,ET, EBI26, Es y 

CATA 54,20,20, o 

CATA TE, Da 5 : 
29 0OIATÁ AT, 18), 02,0B, ET, CB, 02, LB 
109 CATA E7,1<,10, 00,C2,46,El, Ar Ci 
110 OATA 72,806,08,67,21,00,20,L.9,L7 
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g001' ;. LETE INCLINADAS 
000z ; 
1:40 0010 ORG. 40000 
ereiaá 0020 CHEPOS DEFL 0BC1AH 
2240 BY 90730 OF: Á 
+Ed1 La v0do REF 
22dz OLGEOO 9050 LO L,C1X+9) 
F9L43 2D 00:50 BE E 
92d 2600 0070 LO H,0 
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“Td COlABO 0050 CALL EAEPOS 

SCdb 6E67 á LO Lo 

2240 CS 91098 NzTROLA PUSH EC 

2CdE ES é118 SCROLL FUSH HL 

STdaF ECBZA $170 SLáÁ (HL? 

“Lal 04dF 9130 LO B, 77 

“155 So 9140 NzTEYT LO ¡A 

Cad Sd 6150 LO O,H 

lo AS él30 INE L 

SL 200A 6170 JE NZ, ALOE 
3% 01530 INE H 

01%0 LO AH 

0700 AND 7 

9:10 E NZ, ALOE 


OEZÓ 










HLIIE. LO 


SETBIT SET 2d,A 
TSTRIT BIT 4d, ¿HL? 
E Z¿BITOE 
SET %,A 
ETITOE LO (DE. 
DAINZ NATBYT 
FES  d,¿HL> 
PF. HL 
DEC E 
HE NE, S3EROLL 
Lal á,H 
áDO 4,2 
LO H.Á 
FOF.- Bf 
DEC E 
AE NZ,NE2TEOU 
 RET 
END 







AN 
a A 1d 


E 
O O 


Jo dd dd 


A A A 
ARE ARA 


Ibalros 


RRER EUR 
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Copiador inteligente 





¡No, esta rutina no tiene ningún título ni nivel académico, pero 
sin embargo, es mucho más inteligente que esas simples rutinas 
para copiar que andan por ahí! Con esta rutina podremos copiar 
un área de la memoria en otra. El formato es el siguiente: 


CALL 40000, Al, AZ, L 


Al corresponde a la dirección inicial del bloque que va a ser 
movido, mientras que L representa su longitud. A2 es la 
dirección inicial donde va a ser copiado. La longitud viene 
expresada en bytes y, por ejemplo, un área de memoria desde 
40000 hasta 40240 tiene una longitud de 241 bytes. 


'Inteligente', tal y como es usado en el título, no es nuestro 
adjetivo preferido, sino más bien un término que describe cierta 
rutina. Una copia simple es aquélla que se limita a transferir un 
área de memoria a otra sin hacer ningún tipo de 
comprobaciones; una copia inteligente permite que el area de 
destino 'solape' la de procedencia. 


Por ejemplo, supongamos que deseas mover el área de memoria 
comprendida entre las direcciones 30000 y 30010, y quieres que 
la nueva dirección inicial esté en 30005, es decir, solapada. En 
esta situación, un copiador simple realizaría la copia 
directamente, perdiendo el contenido de la mitad del área de 
memoria, mientras que un copiador inteligente, comprobará la 
coincidencia de las dos áreas, copiando el nuevo material dentro 
de la nueva área, sin sobreescribir ninguna parte del mismo. 


: COPTADOR INTELIGENTE 

10 SYMBOL AFTER 230461: MEMORY 322222 YMBOL 
AFTER 2d0 

20 FOR n=44000 TO d06=7 

30 FEAD as:PORE n,VÁALC*2*"+a+) 


d0 NEXT 

30 DATA FE.03,20,00,4E€,00,00,46,01,00 
¿40 DATÁ 5E,02,00,56,63,00,6E,04,00,6é 
70 DOATÁ 07, 7 ES,ED,52,E1,35,03,E0,B0 
0 DATA 12,09, ,EB,07,Eb, By 10,5£0,B9, 7 





Editar 


AMMAS 1.1 


Copvriaht 19335 PICTUEESCUE 


ó FEGS 
2cdz a 

3 DOdEG0 
: A OO0da01 
22d pDOSESZ 
242 005493 
DO ESd 
004405 





ás=emb ler 


90061 
DobZ 
69149 
000 
0030 
dodo 
0050 
000 
0070 
00739 
D070 
9196 
119 
120 
01:30 
0140 
0150 
6150 
9170 
91:30 
9170 
0700 
0:10 
0230 
0230 
0:d0 
02350 


LODES 


CAPI 


An 
CP 
FET 
LO 
LO 
LO 
LO 
LE 
LO 
0: 
FLISH 
BE 
POR 
E 
LOTE 
FEET 
áco 
EX 
áaco 
Ex 
DEC 
TEC 
LOIRE: 
FEET 
ENCI 


INTELIG 


40600 

HZ 

Lo, L1+9) 
B.¿1Ix+10 
EstIA+2) 
0.CIX+3) 
L,tlx+d) 
Ho CIS) 
Al 

HL 

HL, CE 
HL 
CSLDOEC 


HL,Bc 
DE, HL 
HL, EL 
OE, HL 
HL 
clE 
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Memorizador/recuperador 
de pantallas 





Esta rutina toma una pantalla (sobre 16K en términos de 
memoria) y la almacena en un lugar de la memoria. 
Posteriormente puede ser llamada para mostrarla de nuevo en 
la pantalla. 


Permítenos explicarte cómo funciona. Para salvar la pantalla y 
transferirla a otra área de la memoria (comenzando, en efecto, 
en la dirección 27392) debemos escribir CALL 43300. Para 
recuperar la pantalla escribe CALL 43312 -todo lo que hubiera 
en la pantalla será borrado y reemplazado por la nueva que 
estaba en la memoria. 


La rutina ofrece una característica adicional. Si utilizas CALL 
43824, la pantalla almacenada aparecerá sobre la pantalla 
actual sin borrarla. Obviamente, puede generarse cierta 
confusión allí donde coincidan dos caracteres distintos 
pertenecientes a las dos pantallas. Sin embargo, las áreas libres 
de una pantalla pueden ser utilizadas por la otra de una forma 
efectiva en distintos tipos de programas, aventuras, juegos, 
negocios, etc. 


Examinando la lista del BASIC, puedes comprobar que en lugar 
de nuestro habitual comando MEMORY 39999 (reservando unos 
cuantos millares de bytes para nuestras rutinas en Código 
Máquina, que comienzan en 40000) esta rutina reserva memoria 
a partir de 27390 en adelante. Esto es, como es natural, para 
permitir que todo el contenido de pantalla sea memorizado y si 
usas esta rutina en alguno de tus programas, deberás incluir en 
el mismo el comando MEMOR Y 27390. 


Todavía hay otro punto que debes tener en cuenta al utilizar 
este programa. Antes de llamar a la rutina con CALL, deberás 
usar el comando MODE debido a que, si la pantalla ha sido 
desplazada (scroll) o alterada particularmente, podemos 
encontrarnos con que la nueva pantalla puede comenzar en un 
lugar erróneo. Obviamente, el mode en que estés actualmente 
determinará exactamente el comando que debes ejecutar. Una 
rutina que esté trabajando en mode 2 debe tener un comando 
MODE 2 anterior a CALL. 


74 


Ls MEMOfEECU DE FANTALLAS 
108 SYMBOL AFTER 236: MEMORY 273320: SYMBOL 
AFTER 40 
FOR m= 
30 FEAÓO sd POLE VAL] ES 


NExT 

CIATÁ 61,00,40,11,00,2B,-1,90,c00,E0 
GATA BO,0%, 01,00,40, 11, 00,00,21,00 
CIATA ¿B,E0,B0,07,01,00,40,11,00,C0 
CATA 21,00,6B,1A4,46E,12,13,23,0B,72 
CATA B1,20,F6,C7 
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0001 ; MEM PÁNTALLAS 

000zZ ; 
Ab13 0010 ORG. 43500 
AB1EÉ 010040 0070 LO Br: 4000H 
AB1B 1100%B 0070 LO DE,¿B00H 
ABE 21000 v0d0 LO HL, 0C000H 
ABZ1 EOB0 900730 LOTE 
ABE 7 0020 RET 
ABZd 010040 0070 LO Br.:,4000H 
ABE? 11000 0030 LO E,0..000H 
ABZÁ 21004B 0070 LO HL,¿B00H 
ABZ20 EOBo 2100 LOTE 
ABZF E 0110 RET 
AB=0 010040 0120 LO Er:,4000H 
AB3= 11000 010 LO CE,0c:000H 
AB 210068 0140 LO HL, ¿B00H 
AB=37% 14 01530 LOOP LO Á, C0E5 
ABZA AE 0160 ADE CHL) 
AB3B 12 0170 LO (OE), Á 
ABS 13 01:30 INE DE 
AB3O 23 0170 INC. HL 
ABE 08 0:00 DEC- BE 
ABSF 73 0:10 LO A,B 
ABdo Bl 020 0: E 
ABdi 20Fá 0230 IE NZ, LOOP 
ABdAS E? 0:40 FET 


0270 END 75 


Utilidades gráficas 


Este conjunto de utilidades ha sido creado re-escribiendo un 
número de rutinas de las contenidas en este libro, de tal manera 
que se puedan utilizar como una rutina más larga. Con esta 
nueva posibilidad gráfica. 


Esta rutina, una vez cargada en la memoria, permitirá al 
programador utilizar los nuevos comandos en los programas de 
BASIC que el mismo realice. 


Teclear RUN, una vez metida la rutina en memoria, nos 
. Y . . 
proporcionara los siguientes comandos: 


' INVERT Inversión de carácter 

; EXPLODE Explosión gráfica 

¡ WRAPLEFT Scroll a la izquierda 

' WRAPRIGHT Scroll a la derecha 

; PRINTFOUR Print de cuatro caracteres 


Estos nuevos comandos BASIC toman el lugar de los CALL 
40000, pero como es lógico, deben ser seguidos de varios 
parámetros. Para comprobar este punto y tener una mejor idea 
de cómo trabaja individualmente cada comando, revisar la 
explicación dada en el libro sobre la rutina en cuestión. 


Este conjunto de utilidades puede ser utilizado para mejorar la 
presentación de un programa, sea éste un juego, educacional o 
incluso (quizás con la excepción de !EXPLODE) un programa 
comercial. 


pl UTILIDADES GRAFICAS 
10 SYMBOL AFTER 256: MEMORY 29999; 
AFTER 240 

20 DIM té 





SYMBOL 


30 FOR c=8 TO A:EREÁD at: 

¿NEXT 

d0 c=0:sum=0 

50 FOR n=d006%9 TO docs 
ta 


60 READ afiu=VÁALC"L'"+a4) 
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TO Sumo Sm O PLE Mt 

=0 IF ob 108506 GOTO 116 

“8 IF sumisa ica THEN PEINT**ERROE 1N DAT 
Ar CHEF PEINT Comprobar lineas? ¡200+ 
00 cia! p220+1066= END 

180 sum=bi0c=c+1 

1186 NET 

120 IF sumiiefcód THEN FEINT*=EREDE IN DÁ 
TAe"¡CHPLCT PRINT"Comprobar linea 3 

130 * 

140 * CRECE SUM 

150 

1240 DATA BCAA, 2ECA, 230391, 2003, 266,3 

as 

170 

, MACHINE CODE 


CATA 01,46,90,21,58,90,C0,D1,BC, 
CATA SF, EC, Ea, Sr Set PS A = "BA 
29 DATA 90,C03,13,5 103171]06,00,00,00 
DATA 00,49,4E.56,45,52,04,45,58,50 
DATA 4 ,dF,dd,05,57,52,41,50,40,45 
DATA dé, Dd,57,52,41,50,52,49,d7,d8 
DATA Dd4,50,52,49, 5d, d6,dF,55, 
DATA 00,FE,03,00,D0,6E,00,DD,46,0 
DATA 7E, po CB 7B/SE/ 23 /56,DD,6E, 
GATA 0D,66,04,47,C5,E5,CD,75,BB, 
DATA COJAE,9C)13, E1)25,01,10,F1, 
DATA 05,C0,A5,BB,E8,C0,AE,BB,06%, 
DATA 23,10,FD,FS5,C0,06,B7,0E,02, 
DATA 04,023,1F,C0B,14,10,FB,12,2B, 
DATA 20,F23,C00,09,29,F1,C0,5A,PB, 
DATA C9,FE,06,00,CD,06,87,00,6E, 0 
DATA 00,£6,04,2D,25,00,7E,08,7%4, 
DATA CD. 1A,BC,AF,81,10,F0,47,D00, 
DIATA 04,D0,45-06,0D,71,4F,EB,21. 
DATA 00,D0,7E,02,B7,20,45,05,D5 
DATA 03,F5,05,05,7E,23,B6,23,CB, ? 
DATA 22,03,71,00,00,12,10,20, 

DATA 7A,E6,07,20,0d,74,06,08,57, 
DATA ES,01,74,06,03,57,01,F1,30,20 
DATA 05,74,D6,40,57,7B,06,50,5F,3 
DATA 04,14,74,E6,07,20,0d,7A,D6, 
DATA 57,00,20,BF, 01,C1,3E, 0F,FS,C5 
DATA 05,0D,7E,00,2300,76+30,20,FC0,3E 
DATA 08,FS5,C5, 05/78/23 ]B6/23) CB, 7d 
DATA 25,03,21,00,00,EB,A6,EB,12,10 


NE ue 


EEES SS 


A E SAA A 


d 
d 
d 
d 
d 
d 
d 
d 
d 
d 





0,04, 14d, 14,E6,07,0, 0d, TA, DA 
95 157,10, EZ, 01, TA,C6,0%, E 
A F1.30,20 05,74,D6,40,57,7B, CA 
50,5F,730,04,14.1A4,E6,07,20 0d 
f 7A.06,02,57,90.20.BC.01,01,F1 
30,20,AB, 90,D00,5E,0d4,D0, E 
96 ¿00,36,02, , IO é6106.10.20,15 
S,CO,dd, de ¿2O0,07,B9,L09,FE,03 
CO DD EE/02.20.DD 66. 04,25.CD 
14,EC,000,46,90,20B,20,05,0E,03 
o ZA, E,F O, 00,500,230, 20 
04,2d, TC,E6,07,20,0d4d, 70,064,085 
A CB,A4r,13,02 
EE CB, Er,12,10 
cc, 30,0d,CB, A6.18.07,CB.E6 
CE, 28,02,0B,06,01,E1, 70,06 
LEA ¿20,BF,C0%2,FE,03,0, 00 
¿E, en 00,4E,90,000,71E,d4,=31 
2 04,02,67,20,14,2B0,23,41,0B,20 
03,0E,025,E5,250,C0B,3E,TE,FS,S50 
Sd, 70,20, Aid DAL TE, 20,EG6,07 
20,04, 70. ¿0% ar A CR,3E,=33 
ACE LOF 1B 02 CA OP CB Ses 
02 .B,FF+12,10,08,F1,28,04,8B 
SE, 12,02,CB, gE, CB,5F,28, 02,B 
FEEL El, 70,C6,08,é 4,00,%0, 3) 
20%2,00,4E,00,00,6E,92,D000,464%,03 
00,5E. vd, DO,56, 05, 06,02,05,E3 
¿EOo,C0,BB,E1,7%,00,205,20,FC 
BB" Ll. 00,0s, CO. FE,BB,21,El 
01,3E,10,28,30,20,FC,10,E1,09 


A 


2 Cl 
SOS SOSA AAA AO O O O 


> 
Ma 


17) 
1 
ES 
Ed 
¿a 
E 
0 


NS 
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2240 
Bcod 
Bera 
ERAS 
BRAE 
pros 
em 
BESÁ 
eciá 





SELF 
Sad 
LAS 
CAB 
AAC 
273 
vd 
LIS E 
220 
LS 

STE 

e 
TEA 
2330 
20 
9091 


SL 


Lol 


01d4ÁYC 


MN 


A a LL LL a a TT 





CS AS DIO A 
=> 
=> 
> 
> 


Ea 
E 


a 
E 


Cid 


2-82 
6 00 


FEO 
10. 
DOE00 
Cll 0 1 


ássembler 


0001 


d00z o; 


¿616 
000 
0070 
00d0 
00750 
00:20 
00ro 
0600 
poa 
0100 
0110 
01:30 
01:30 
0140 
0130 
0160 
0170 
01:20 
0170 
0:00 
0210 
0230 

¿30 


0240 


0250 
0270 
030 
0270 
0700 
0=10 
0320 


SANS 


LOGEXT 
CURS di 
MATRIX 
MTABLE 
EOMENA 
ROMO TS 
TATOLIT 
CHEFOS 
FILED 
MOVABS 
GRÁCHE 


TÁBLE 


SPACE 
NÁMETE 


INVERT 


Aena 


OEI 
CEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
TIEFL 
CIEFL 
DEFL 
DIEFL 
LO 
LO 
CALL 
FET 
DEF 
JE 
AF 


DEFE 


DIEF AN 
CIEFB 
DEF M 
EFE 
DEF M 
EFE 
DEF AN 
DEFE 
CIEF MN 
TEFE 
CIEFB 
CP 
FET 
LO 
Lo 
Lo 
OF 
FEET 


GRÁFICAS 


40000 
0ECO1H 
OBB7SH 
OBRASH 
OBBAEH 
02906 
02707H 
OBESAH 
DEC1AH 
9EC 44H 
0B2Cco0H 
0BBFCH 
BC, TABLE 
HL, SPACE 
LOGEXT 


NÁMETE 
INVERT 
EXPLOD 
LWRAF 
EWEAP 
GEPNTA 
9,0,0,0 


"INVER* 
"T+230H 
LEAR 
"E*+230H 
"WEAPLEF” 
"T+50H 
"WERAPETGH” 
*T*+20H 
"FERINTECLI 
"R"+530H 

0 
NZ 
L,C(1x+0) 
His LA 
f, CHLO 
Á 
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a 


0 
2] a] 


A 
A a 


a] 
Y 
ar 


o 
A 
= 


1 
4 
A 
E 
L. 
E 
, 


A AN 


RA LA 


CO7SBE 


¡A 1Á 
Ad COAESC 
ar 12 





00 YB9 
EL 
COSÁABE 


5 01 
ño CA 


FE02 


017 1.0 


SIA 
COD 
OTEO 


200285 
OO0E0a 
DO 404 


O NATCHE 





esló 
Bab 
03730 
0540 
0350 
05060 
0370 
65736 
0370 
0600 
06210 


0270 


INVEHE: 


30 ADO? 





0700 
erio 
070 
070 
orde 


NETBYT 
NETBIT 


EXPLOD 


INC 
Lo 
TNc 
LO 
LO 
Lo 
Lo 
PUSH 
ELISA 
CALL 
LO 
CÁLL 
INC 
PUE 
DEC 
PROF 
OLINZ 
EET 
EUSH 
CALL 
EX 
CÁLL 
Lo 
INC 
DINZ 
PLUISH 
CÁLL 
LO 
LO 
LO 
RRÁ 
EL 
DLINZ 
INE 
nEC 
DEC 
JE 
CALL 
POE 
CALL 
EOF 
FEET 
CF 
FEET 
TALL 
LO 
LO 


HL 

Es EL) 
HL 

E. SEE) 
EstLAt2d 
H, ¿12+do 
e.Á 

BL: 

HL 
CURSOR 
A, COES 
INWICAR: 
CE. 

HL 

H 

BL 
NÁTCHE 


CE 
MATE IX 
E, HL 
MTÁBLE 
B,r 

HL 
ACILO? 
AF 
FROMENA 
C,5 


E 
NZ,NATBYT 
EOMOTS 

AF 

TATOWT 

CE 


o 
NZ 
FEUMENA 

LStIA+O6 
H, (12+10) 


SES 
“CEd 
SC ES 
SCES 
STE? 
“CEÁ 
“CEO 
“CEE E 
“EF 
2.F1 d7 
SF Z DOTE9d 
S0FS DOdE9a 
“CFS 60 
2LFY 1 
SCUFA dE 
SCUFE EB 
UFE 219000 
“EFF DOTESZ 
2d06z Br 
2003 20d5 
2005 Cn 
2064 
2097 
200% 
2004 En 
2082 03 
200 7 
20e0 <= 
2010E 
200F 22 
210 E 
Odo 230=S 
“01d 
entr 12 
“mis 16 
201% 2004 
+01B 
nc 7 
2mo 
“MF 2 
enzi Y 
20 
20d 37 
2025 
SO? 
SOza- 7 


5029 0608 


DO7EOS 
4 
aF 
CO1ABE 





1030 
1640 
1030 
10:00 
1070 
10230 
10970 
1106 
1119 
11:0 
110 
1140 
1130 
1140 
1170 
110 
119 

1300 


1210 


1220 
1230 


MANN AN 


NE cura 


e A ps 
SO 


/ 
Na TEC 
NZTLIN 


NATEBTE 


INECIM 


GOTBYT 


EC 
DEL 
LO 
SUB 
Lo 
CALL 
0 
ácicn 
DIN 
LO 
LO 
LO 
DEC 
UE 


FLUSH 
LO 
FUSH 
FLUSH 
PUSH 
LO 
INC: 
CHE 
INE: 
EIT 
E 
LO 
LO 
INC: 
E 
INC: 
LO 
ANO 
AE 
LO 
SUB 
LO 
DLINZ 
FOF 
LO 
ao 


Be sl a a e ll NH 
- Ma E » BZ 


NZ,FARTE 
El 


Bs H 

Ze INEM 
HL, 
¿DEJ),A 

E 
NZ,GOTBYT 
cl 

4,0 


NZ,GOTEYT 
4,0 

0, á 

NATETE 

CE 

A/D 

A,= 

81 
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“0d 
2D0dáA = 
“045 
2040 
“0dE 
“0dF 
SO 3 
“053 
“05d = 
2 0a 
207 
2057 
SO5ÁA 
“058 
“one 
“050 
“U5E 
S05F 
2066 
2O0Az 
204d 
207 
Das 
EUA 
2064 
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Eb 
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1400 
1419 
140 
1436 
1ddé 
1435 
1450 
1478 
1430 
1430 
1506 
1516 
100 
1330 
15d 
1550 
1350 

13rO 
1350 
1370 
1660 
1616 
156:0 
1630 
16d0 
16530 
1660 
167ro 
1620 
1570 
1790 
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FF 
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LO 
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LO 
LO 
áacó 
LO 
E 
INC 
LO 
árt 
TE 
LO 
UB 
LO 
DES 
JE 
POR 
POF 
LO 
PUSH 
ELISH 
ELISA 
LO 
INE 
HALT 
CEL: 
JE 
LO 
PUSH 
FLA 
ELISA 
LO 
INC 
CF 
INC 
EIT 
JE 
LO 
EX 
áNo 
EX 
LO 


o, A 

Br 

áF 
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NZ, NATL IN 
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NE, GOTEO 
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NZ,GOTROY 
a. 0 

DA 

E 
NZ,NATECI) 
DIE 


Ar tIA+00 


Á 
Ne rada ¡E 


SDE 
0701 


YBSE 3 
“OSP 2 
041 = 


PDAZ 
¿DIAS 
2047 
SDIAC 
PDIAF 
2020 
2081 


ESOr 
00d 
Obs 
Ed 

10E2 


EGOr 
¿00d 
Oxas 





OO E0a 
003493 
OI 04A 
10 

ZO” 


13 











FNOBEYT 


FNOECI 


THC 
E 
INE 
LO 
ánNo 
TE 
LO 
SUB 
LO 
OLINZ 
FF 
LO 
ácio 
LE 
POF 
POE 
DEL: 
AE 
LO 
LB 
LO 
LO 
áco 
LO 
JE 
INC 
LO 
AND 
ME 
LE 
SUB 
LO 
DES 
VE 
POP 
POR 
POR 
DEC 
TE 
LO 
LO 
LO 
LO 
LO 
Er 
DEL: 
DEC 


E 
NZ,FNOBYT 


NZ.FNOBYT 
á.D 

o,á 
NEWEYT 

DE 

4,0 

A. 

DA 

Ec 

AF 

Á 
NZ,NEWL IN 
4,0 

cd 

D,A 

á,E 

4,30 

EJÁ 

NE, FNOF CU 
O 

á4.)b 

NZ, FNOFE CI 
Aá,tl 


DI, A 
$ 

NZ , NEYEC 
DE 

Br 

AF 

A 

NZ,FADE 
A,0 

E, CIX+d) 
Ly (1%+6) 
Dl, (I+D) 
H, CT+10) 
E 

L 

o 


83 


84 


08.2 
“0B:= 
“OB 
“082 
“ORBA 
OB L: 
080 
D0L.0 
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“0010 
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FEET 
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CALL 
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LO 
LO 
SLA 
FE 
RES 
JE 
SET 
ETT 
IE 
SET 
LO 
OLINZ 
POP 
E 
RES 
JE 
SET 


H 
FILBLE 
E0MOT= 


¿(LIA 


014) 
CHREOS 
MOE 


J 
E 
L 
H 
H 
Bes 
E 
E 
CE 
HL. 
er 
(HL 
A, CHLA 
AF 
Ex ls 
D,H 
L 
NZ, HALLO 
H 


AH 
NZ, HALLO, 


-T> I- 


¡SNRLRARO->DIO>D 


7 O O O O O O A O 
ANAIS 


mmammamimaimaimimimimimimimim im 


SE 


5 DD 
S <O 
2 DOdE90 


EZ 


" DO7E9A 


SE RI o AAA ESA 








Fo ENOPZL 


A ROWFNL 


ENRAF 


EE: 


BYTER: 


ALEC 


EIT 


POP 
FOF 
LO 
ácio 
LO 
EC 
JE 
RET 
CP 
FET 
LO 
DEC 
LO 
La 
ácbcoo 
SUB 
LO 
CALL 
INC 
LO 
SLÁ 
DEC 
LO 
FLISH 
FELUISH 
SEL 
LO 
FLISH 
LO 
LO 
LO 
DEC 
OF: 
TE 
LO 
DEC: 
ANO 
JE 
LO 
ácc 
LO 
Lo 
SEL 
AE 


d,Á 
2 ¿FOMENL 
¿HL? 


e [TT iTie 


ZMTTIPT TINO 
Pot 


Py 


, EDIL 


“Fl 


ELE 


a a 0 a a A E A 


- H 


E 


Dr PIDAL 


85 


86 


: 
té 


a a 7 e. sy 
A 


CA EN 


“Jj m Lp e TM O 0 00 LN a 


O O ON 
A AL 
. 8 

a 


nl '.. 


2 
O] 


eS 
y 
Aa coa 
E 


IA 


MA al 
TT Y 
matan 


ODdE00 
DD4EOZ 


ES 
42 IO 


Eéd 
00505 
A 


as 05 


EJ 

ES 

LOCORE 
1 z 

=9 

Jm 

LS 

COFCRBE 

El 
7 


oc 
La 
COFCER 
cl 
El 


4 
AS 
Dl 









2 BITROE 


0 WRAPR 
170 ENDPER 


2 RONENE 


GEFNTA 


NATEOE 


RES 
Je 


A EL 
EOS 


E 
SET 
LO 
LINZ 
POP 
IF 


= 


Pos 
= 
+ 
q 


A TT a e Of ed e — IX] 
Es 
ESA 


1 
. 


2 ¿FROENE 
EA y 
ar 

HL. 

AH 
Ay= 
H,A 
E 
NZ,FEOWE 


¡JN 
MOYA 
Br 

AE 

E 

Br 
GERACHE 
Br 

Aa, 

E 

Br 
GEÁCHE: 
BC 

HL 








00 MOVEGR 


POR 
LO 

DEC 
DEC 
E 

Ci INZ 
FET 
END 


CE 
Aria 
HL 

Á 


NZ,MOVEGE 


NATEOE 


87 





OU'Ts, PEEKs, POKEs 
y CALLs útiles 


El mamotrético título lo dice todo. Este capítulo está dedicado 
a un número de útiles rutinas y posibilidades que pueden ser 
accedidas mediante los comandos arriba indicados, todos estos 
comandos y su uso han sido ya explicados, pero únicamente 
dando un pequeño número de ejemplos. Aquí tenemos el resto. 


1) 


2) 


3) 


4) 


5) 


6) 


7) 
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Hay un número de sistemas para impedir que los demás 
tengan acceso a nuestros listados pero la mayoría están 
relacionados con la imposibilidad de 'romper' el programa. 
Este POKE permite romper el programa, pero no listarlo. 
Esto es debido a que POKE introduce un carácter de 
control en la primera línea del programa. 

Escribir la línea 1 de la forma siguiente: 1 REM*** 
Teclear ahora POKE 4 176,255 

A partir de este momento, tu programa debe ser imposible 
de listar. 


Un rápido CALL aquí para limpiar el buffer del teclado: 
CALL «BFF9, 4«C9, «1CED, «CFO00. 


No sé cuántos de vosotros habréis encontrado molesto 
tener que establecer un LOAD o CAT cada vez que se 
quiere posicionar la cinta del cassette usando el botón de 
PLAY. OUT 512,6 habilita botón de PLAY, permitiéndote 
que lo uses nuevamente, mientras que OUT 512,0 lo 
deshabilita de nuevo. 


Mediante el comando OUT 256,N puede obtenerse una 
forma simple de scroll horizontal, donde N es la posición 
del carácter. Prueba OUT 256,20 para hacer un 
desplazamiento desde el centro de la pantalla en modo l. 
El scroll produce un efecto de rotación de la pantalla 
sobre su eje longitudinal, donde los caracteres que 
desaparecen por el lado izquierdo reaparecen por el 
derecho. 


Teclea CALL GBB7E para anular el cursor de la pantalla. 
Para activarlo usa CALL 4BB13. 


CALL 4BB13 es igual al comando BASIC: 

WHILE INKEY$ = "": WEND 
Tanto la línea de programa como la llamada (CALL) 
esperan que sea pulsada una tecla. 


CALL «BD19 realiza una acción conocida como frame 
flyback. Esto simplemente da un mejor aspecto y un 
movimiento mas suave a la animacion de tus pantallas. 


Ensambladores y Lenguaje 
Ensamblador 


Te habrás dado cuenta que en este libro no únicamente están 
incluidos listados de BASIC, sino que también los hay en 
Lenguaje Ensamblador. Para aquéllos que no están 
familiarizados con este lenguaje, existe un método simple de 
explicar las distintas instrucciones en Código Máquina que hay 
disponibles. Por ejemplo, una instrucción que hace regresar al 
ordenador desde el Código Máquina al BASIC. Esta instrucción 
es mostrada en los programas cargadores BASIC como C9 
cuando estos programas utilizan la numeración hexadecimal 
(base 16). El código equivalente en ensamblador para esta 
instrucción es RET, que obviamente es una abreviatura de 
RETURN. Echa un vistazo a las listas en Lenguaje Ensamblador 
y comprobarás que esta instrucción está en penúltimo lugar. 


Si quieres obtener más información sobre el Lenguaje 
Ensamblador, te sugiero que mires una de las listas mencionadas 
en la bibliografía. Lo que sí estoy interesado en mencionar aquí 
es otro grupo de instrucciones. Este grupo puede ser visto en los 
listados de Lenguaje Ensamblador y son instrucciones tales 
como END, ORG, DEFM y PRNT, todas ellas son comandos 
usados por el ensamblador (el programa que te permite escribir 
Código Máquina en Lenguaje Ensamblador). El uso de un 
ensamblador hace más fácil la escritura del Código Máquina, así 
como seguir el programa escrito por otra persona. 


Estos comandos del ensamblador, o directores como también 
son conocidos, ayudan al programador de Código Máquina y 
deben ser incluidos en los listados en Lenguaje Ensamblador. 
Para que no te confundas cuando mires un listado en Lenguaje 
Ensamblador, abajo tienes detallados estos comandos: 


ORG END EQU DEFL DEFB  DEFW 
DEFW DEFS DEFM PRNT ENT 
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BIBLIOGRAFIA 


Entre los numerosos libros que tratan la programación en 
Código Máquina del Z-30 en general y específicamente del 
Amstrad, nosotros hemos elegido algunos títulos para consultar. 


Amstrad Machine Language For The Absolute Beginner 
de Joe Pritchard, Melbourne House. ISBN 0 86161 1934 


En nuestra opinión, la mejor guía para iniciarse en este sujeto 
(¡por supuesto, antes de que la nuestra fuese publicada!). En 
serio, el libro es una completa guía para el que se inicia en 
Código Máquina con el Amstrad. A diferencia de otras muchas 
guías de Código Máquina, ésta es muy específica para el 
Amstrad, incluyendo un número de las 'llamadas' (calls) 
disponibles en la ROM. El libro tiene una pobre presentación; 
justo los listados de impresora y algún que otro diagrama. En el 
texto hay algunos fallos, pero lo mas preocupante son los 
errores existentes en los listados de programas. A pesar de 
todo, una buena compra para aquéllos que deseen ir más allá de 
los primeros inicios con el Código Máquina. 


Amstrad CPC 464 Machine Code 
de Steve Webb. Virgin Books. ISBN 0 86369 082 3 


Este delgado libro es ideal para el novel en Código Máquina 
¡quién piensa que PUSHing y POPing son formas nuevas de 
baile! En lugar de lanzarse dentro de complicadas explicaciones 
sobre los conceptos y principios del Código Máquina, el libro se 
mantiene dentro de un nivel más práctico introduciéndote en los 
Z30 Op codes (códigos de operación de Z30) que tú puedes usar. 
Es posible que puedas necesitar otro libro para suplementar las 
enseñanzas de éste, pero para el principiante total merece la 
pena considerar su compra. 


The Concise Firmware Specification 
Order Code: SOFT 158. Amsoft. 


Con un precio de 20 libras (unas 4.000 Ptas.) se trata de un 
folleto de hojas sueltas que puede hacerte pensar que Amsoft no 
trata bien al público. No es este el caso. Por ese dinero, 
obtienes una referencia técnica completa donde están todos los 
detalles de las rutinas contenidas en la ROM, cómo trabajan y 
qué parámetros requieren. Un número de rutinas de nuestro 
libro habrían sido bastante más difíciles de escribir si no 
hubiésemos tenido esta guía. 
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Disposición del Teclado 


El siguiente diagrama muestra el código numérico de todas las 
teclas: 


TECLADO PRINCIPAL 
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TECLADO NUMERICO 





TECLAS DE CURSOR 
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Amstrad 


EL BASIC es el lenguaje para ordenadores más sencillo de 
aprender, y usualmente es dominado de forma rápida por el 
programador novel. Sin embargo, al tiempo que progresan, muchos 
programadores encuentran que partes de sus programas que 
requieren una rápida ejecución, tales como desplazamientos 
rápidos de la pantalla, no pueden ser realizadosen BASIC. 


Ahora tú podrás controlar el verdadero poder de tu Amstrad 
mediante el Código Máquina con impresionantes resultados. 

Este libro contiene 20 rutinas, cada una escrita de forma que 
pueden ser incorporadas en tus propios programas con el mínimo 
esfuerzo. Sin que sean necesarios conocimientos previos de lenguaje 
Ensamblador ni Código Máquina. 

Cada rutina es totalmente descrita mediante ejemplos y 
explicaciones de su uso. Con este libro serás capaz de lograr 
extraordinarios efectos tales como suaves desplazamientos de la 
pantalla, rotación de caracteres multicolores, nuevos comandos de 
sonido, caracteres itálicos y más efectos -rutinas que en BASIC son 
imposibles de realizar, y que mejorarán tus “cansados” programas, 
tanto si sonjuegos, educacionaleso aplicaciones de negocios. 


Sobre nosotros 
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